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Pascal/VS 
Installed Programmer's Guide 
User 
Program Program Number: 5796-PNQ 


Pascal/VS is a Pascal compiler operating in MVS and 
VM/CMS. Originally designed as a high level programming 
language to teach computer programming by N. Wirth 
(circa 1968), Pascal has emerged as an influential and well 
accepted user language in today’s data processing environ- 
ment. Pascal provides the user with the ability to produce 
very reliable code by performing many error detection 
checks automatically. 


The compiler adheres to the currently proposed ISO 
standard and includes many important extensions. The 
language extensions include: separate compilation, 
dynamic character strings and extended I/O capabilities. 
The implementation features include: fast compilation, 
optimization and a symbolic terminal oriented debugger 
that allows the user to debug a program quickly and 
efficiently. 


This manual is a guide to the use fo the compiler in the 
MVS and VM/CMS operating environments. 
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PREFACE 


This manual is a guide to the use of the Pascal/VS compiler. It explains how to 
compile and execute Pascal/VS programs, and describes the compiler and the operat- 
ing system features which may be required by the Pascal/VS programmer. It does 
not describe the language implemented by the compiler. 


ELATED PUBLICATIONS 


Pascal/VS Language Reference Manual, order number SH20-6168. This manual 
describes the Pascal/VS language. 


IBM Virtual Machine Facility/370: CMS Command and Macro Reference, order num- 
ber GC20-1818. This manual describes the commands of the Conversational Moni- 
tor System (CMS) component of the IBM Virtual Machine Facility/370 with 
detailed reference information concerning command syntax and usage. 


IBM Virtual Machine Facility/370: CP Command Reference for General Users, 
order number GC20-1820. This manual describes the control processor commands 
of the IBM Virtual Machine Facility/370. 


OS/VS2 TSO Command Language Reference Manual, order number GC28-0646. This 
manual describes the commands of the Time Sharing Option of OS/VS2. 


OS/VS2 JCL, order number GC28-0692. This is a reference manual for the job 
control language of OS/VS2. 


OS/VS Linkage Editor and toader, order number G6C26-3813. This manual 
describes how to use the 0S/VS2 linkage editor and loader. 


Time Sharing Option Display Support and Structured Programming Facility Ver- 
sion 2.2: Installation and Customization Guide, order number SH20-2402. This 


manual describes how to install and modify menus and command procedures of the 
Structured Programming Facility (SPF). Knowledge of the content of this manu- 
al is required to install the Pascal/VS SPF menus and procedures. 


OS/VS2 MVS Data Management Services Guide, order number GC26-3875. This manu- 
al describes the various data set access methods utilized by OS/VS2 and the 05 
simulation of CMS - VM/370. 


Pascal/VS Reference Summary, order number GX20-2365. This reference summary contains basic information 
from the Pascal/VS Reference Manual and Pascal/VS Programmer’s Guide. 


Preface iii 
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SUMMARY OF AMENDMENTS 


RELEASE 2.1 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.1. 


A procedure (or function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at 
the outermost nesting level of a module has been removed. 


Two new options may be applied to files when they are opened: UCASE and NOCC. 


Rules have been relaxed in passing fields of packed records by var to a rou- 
tine. 


The "STACK" and “"HEAP™ run time options have been added to control the amount 
at which the stack and heap are extended when an overflow occurs. 


The syntax of a "structured constant” which contains non-simple constituents 
has been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.0. 


Pascal/VS now supports single precision floating point (32 bit) as well as 
double precision floating point (64 bit). 


Files may be opened for updating with the UPDATE procedure. 

Files may be opened for terminal input CTERMIN) and terminal output (TERMOUT) 
so that I/0 may take place directly to the user's terminal without going 
through the DDNAME interface. 

The MAIN directive permits you to define a procedure that may be invoked from 
a non-Pascal environment. A procedure that uses this directive is not reen- 
trant. 

The REENTRANT directive permits you to define a procedure that may be invoked 
from a non~Pascal environment. A procedure that uses this directive is reen- 
trant. 

A new predefined type, STRINGPTR, has been added that permits you to allocate 
strings with the NEW procedure Whose maximum size is not defined until the 
invocation of NEW. 

A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

The maximum size of a string has been increased to 32767 characters. 

The Pascal/VS compiler is now fully reentrant. 


Code produced from the compiler will be reentrant if static storage is not 
modi fied. 


Pascal/VS programs may contain source lines up to 100 characters in length. 
Files may be accessed based on relative record number (random access). 

Run time errors may be intercepted by the usar's program. 

Run time diagnostics have been improved. 


Pascal/VS will flag extensions when the option "LANGLYLC(STD)" is used. 


Summary of Amendments v 
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vi 


A mechanism has been provided so that Pascal/VS routines may be called from 
other languages. 


All record formats acceptable to QSAM are now supported by the Pascal/VS I/0 
facilities. 


A procedure or function may now be exited by means of the goto statement. 


You may now declare an array variable where each element of the array is a 
file. 


You may define a file to be a field of a record structure. 


Files may now be allocated in the heap (as a dynamic variable) and accessed 
via a pointer. 


You may now define a subrange of INTEGER which is allocated to 3 bytes of stor- 
age. Control over signed or unsigned values is determined by the subrange. 


Variables may be declared in the outermost scope of a SEGMENT. These vari- 
ables are defined to overlay the variables in the outermost scope of the main 
program. 


The PDSIN procedure opens a member of a library file (partitioned dataset) for 
input. 


The PDSOUT procedure opens a member of a library file (partitioned dataset) 
for output. 


A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 


The CPAGE percent(%) statement conditionally does a page eject if less thana 
specified number of lines remain on the current listing page. 


The MAXLENGTH function returns the maximum length that a string variable can 
assume. 


The *CHECK TRUNCATE option enables (or disables) the checking for truncation 
of strings. 


The PASCALVS exec for invoking the compiler under CMS has been modified so 
that the specification of the operands allows greater flexability. 


New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 
LANGLVL. 


The catalogued procedures for invoking Pascal/VS in OS Batch have been simpli- 
fied. 


The format of the output listing has been modified so that longer source lines 
may be accomodated. 


Multiple debugger commands may be entered on a single line by using a semico- 
lon (3) as a separator. 


The format of the Pascal File Control Block has been modified. 


Support is now provided for ANSI and machine control characters on output 
files. 


Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 


The debugger now supports breakpoints at the end of a procedure or function. 


The Trace mode in the debugger provides information on when procedures are 
being exited. 


The TRACE procedure now permits you to specify the file on which the traceback 
is to be written. 


The Equate command of the debugger has been enhanced. 


Pascal/VS Programmer's Guide 
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1.0 INTRODUCTION 


The Pascal/VS compiler is a processing program which translates Pascal/VS source 
programs, diagnosing errors as it does so, into IBM System/370 machine 
instructions. 

The compiler may be executed under the following operating system environments: 

° 05/370 Batch (VS1 and VS2 R3.7) 

° Time Sharing Option (TSO) of OS/VS2 


° Conversational Monitor System (CMS) of Virtual Machine Facility/370 (VM/370) 
Release 5 PLC 2 and latter. 


1.1 INVOKING THE COMPILER UNDER CMS: PASCALVS EXEC 


RINT etal 


) 
PASCALVS fn Cft Cfm7] | C Loptions] [NoPRINT [CONSOLE] 
DISK CNOOBJ] 


fn is the file name of the source program. 

ft is the file type of the source program; the assumed file type is 
"PASCAL". 

fm is the file mode of the source program. 

maclibs are optional macro libraries required by the *INCLUDE facility. Up to 
eight libraries may be specified. 

options are compiler options. 

PRINT specifies that the listing is to be spooled to the virtual printer. 

NOPRINT specifies that the listing is to be suppressed. 

DISK specifies that the listing is to be stored as a file named "fn 


LISTING". This is the default. 

CONSOLE specifies that the console messages produced by the compiler are be 
stored as a file named "fn CONSOLE". If CONSOLE is not specified, 
then the messages will be displayed on the terminal console. 


NOOBJ suppresses the production of an object module. 


1.2 BUILDING A LOAD MODULE UNDER CMS: PASCMOD EXEC 


PASCMOD main [nmames... 1] [ (€ options... [)1] 
main is the name of the main program module. 
names... are the names of segment modules and text libraries (TXTLIB's) which 


are to be included 
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options... isa list of options. 


The resulting load module will be given the name "main MODULE A™. The load map of 
the module will be stored in "main MAP A". 


The following are recognized as options to the PASCMOD command. 


DEBUG links the debugging routines into the load module so that the interac- 
tive debugger can be used. 


NAME name specifies an alternate name for the load module. The resulting load 
module and map will have the name "name MODULE A™ and "name MAP A". 


1.3. INVOKING THE LOAD MODULE UNDER CMS 


A Fascal/VS load module is invoked as follows: 
modname [ [rtparms.../] [parms...] ] 


where "modname" is the name of the load module; "rtparms” are run time options 
(separated by blanks); and "parms"” are the parameters Cif any) being passed. 


1.4 INVOKING THE COMPILER UNDER TSO: PASCALVS CLIST 


CLIST NAME OPERANDS 


PASCALVS data-set-name_ 
Ccompiler-options-list) 


[ OBJECT(dsname) 
NOOBJECT 


PRINT (dsname ) 
SYSPRINT(sysout-class) 


PRINT (*) 
NOPRINT 


CONSOLE(*) 
COHSOLE(dsname) 


LIB(dsname-list) 
NOLIB 


data-set-name is the name of the primary input data set. 
compiler-options-list is one or more compiler options separated by blanks 


OBJECT(dsname) specifies the data set to contain the object module. 


NOOBJECT specifies that no object module is to be produced. 
PRINT() specifies that the compiler listing is to be displayed on the ter- 
minal. 


PRINT(dsname) specifies the data set to contain the compiler listing. 


SYSPRINT(sysout-class) specifies the sysout class to where the compiler listing 
is to be produced. 


NOPRINT suppresses the compiler listing. 
CONSOLE() specifies that compiler messages are to be displayed on the termi- 
nal. 
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JI 


c 


CONSOLE(dsname) specifies the data set to contain compiler messages. 


LIB(*dsname-list') specifies a list of %INCLUDE libraries. 


NOLIB specifies that no INCLUDE libraries are required. 
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1.5 BUILDING A LOAD MODULE UNDER TSO: PASCMOD CLIST 


CLIST NAME OPERANDS 


PASCMOD data-set-name or x 


[OBJECT( 'dsname-list'")] 
[DEBUG] 
[LOAD(Cdsname )] 


PRINT(%3} 
PRINT (dsname ) | 


LET | XCAL ] 
NOPRINT 


NOLET NOXCAL 
[LIB( *dsname-list’)] [FORTLIB] [COBLIB] 


MAP NCAL LIST 
[ NOMAP J [ NONCAL J NOLIST J 


[ XREF ] [ REUS ] REFR ] 
NOXREF NOREUS NOREFR 


SCTR ] [ OVLY ] RENT ] 
NOSCTR NOOVLY NORENT 

[ NE [ OL [ pc 
NONE NOOL NODC 


[ TEST ] [ NOTERM 


TERM 


NOTEST 


[SIZEC(C"integerl integer2")) 
[pces(blocksize)] 
[AC(authorization-code)]) 


data-set-name is the data set containing a Pascal/VS object module and/or link- 
age editor control cards. 


OBJECT('dsname-list’) specifies a list of data sets which-contain additional 
object modules to be included in the link-edit. 


LIB('dsname-list") specifies a list of libraries to be searched. 


DEBUG specifies that the Pascal/VS interactive debugger is to be uti- 
lized. 


All other operands of the PASCMOD CLIST are identical to their counterparts in the 
LINK command as described in the TSO Command Language Reference Manual. 
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1.6 INVOKING THE LOAD MODULE UNDER TSO: THE CALL COMMAND 


dsnamel (member )] [ *"Coptionss] [parms]'" ] 


dsname(member ) 


options 


parms 


specifies the name of a partitioned data set and the member where 
the load module to be invoked is stored. 


is one or more run time options separated by either a comma or a 
blank. 


a parameter string which is to be passed to the program. 


The total length of the quoted string Coptions plus parms) must not exceed 100 


characters. 


1.7 INTERACTIVE DEBUGGER 


In order to use Debug, you must follow these four steps: 


° Compile the module to be debugged with the DEBUG option. 


° When lLink-editing your program, include the debug library. 


° When executing the load module, specify 'DEBUG' as a run time option. 


Description (Abbreviation in capital letters) 


2 
»Variable 
Break 
CLEAR 

Cms 
Display 


List all debug commands 

Display the value of a variable 
Set a break point 

Remove all break points 

Enter CMS subset mode 

Display status 


Display Breaks Display the location of all break points 
Display Equates Display all equate symbols with their current 


Listvars 


Qual 

QUIT 
Reset 

Set Attr 
Set Count 
Set Trace 
Trace 
Walk 


definitions 

Terminate the program (same as QUIT) 

Define an equate symbol 

Begin or resume execution of probram 

List the values of all variables that are local 
to the active routine 

Redefine the "current" qualification 

Terminate the program (same as END) 

Remove a break point 

Display attributes when variables are viewed 

Initiate/terminate statement counting 

Activate/deactive program tracing 

Display a trace back 

Execute a single statement and then prompt for 
another command 
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1.8 COMPILER OPTIONS 


Compiler Option Abbraviated Name 


CHECK/NOCHECK CHECK 
DEBUG/NODEBUG --- NODEBUG 
GOSTMT/NOGOSTMT GS/NOGS GOSTMT 
LINECOUNT(n)} Le LINECOUNT (60) 
LIST/NOLIST --- NOLIST 
LANGLVL(STD/EXTEND) “77 LANGLVLCEXTEND) 
MARGINS(m,n) MAR(Cm,n) MARGINS(1,72) 
OPTIMIZE/NOOPTIMIZE OPT/NOOPT OPTIMIZE 
PAGEWIDTH(n) Pid PAGEWIDTH(128) 
PXREF/NOPXREF iene PXREF 
SEQUENCE(m,n)/NOSEQUENCE SEQCm,n)/NOSEQ SEQUENCE(73,80) 
SQURCE/NOSOURCE S/NQOS SOURCE 
WARNING/NOWARNING W/NOW WARNING 


XREF/NOXREF X/NOX XREFCSHORT) 


1.9 RUN TIME OPTIONS 

The following options enable features in the Pascal/VS run time environment in 
which your program will be executing. 

COUNT generates a statement count table and writes it to QUTPUT. 

DEBUG activates the interactive debugger. 


SETMEM initializes local storage of a routine to a specific value on each invoca- 
tion of the routine. 


NOSPIE suppresses the interception of program exceptions. 
NOCHECK causes all checking errors to be ignored. 
ERRFILE = ddname specifies the file to which error diagnostics are to be written. 


ERRCOUNT = number specifies the number of non-fatal run time errors that will be 
permitted prior to terminating the program. The default number jis 20. 


STACK = number specifies the number of kilobytes by which the run time stack is to 
be extended when a stack overflow occurs. 


‘ 


HEAP = number specifies the number of kilobytes by which the heap is to be extended 
when a heap overflow occurs. 
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1.10 CATALOGED PROCEDURES 


PASCC Compile only -- step name: PASC 
PASCCG Compile, load and execute -- step names: PASC, GO 
PASCCL Compile and link-edit -- step name: PASC, LKED 


PASCCLG Compile, link-edit, and execute -- step names: PASC, LKED, GO 


source program input PASC. SYSIN? 
%INCLUDE library (PDS) PASC.SYSLIB 
source listing, 

cross-reference listing, PASC.SYSPRINT 

pseudo assembly listing and 

external symbol table listing 
object module PASC.SYSLIN 
load module LKED.SYSLMOD 
linkage-editor control cards LKED.SYSIN} 
linkage-editor load library LKED.SYSLIB 
loader input GO.SYSLIN 
loader library GO.SYSLIB 
file OUTPUT GO.OUTPUT 


1 This DDname is not defaulted and must be 
explicitly defined. 


1.1] SAMPLE BATCH JOB 


//jobname JOB 
//STEPIL EXEC PASCCLG, OPTIONS="XREF(LONG),LIST’ 
//PASC.SYSIN DD % 


{Program to be compiled goes here} 


7% 

//LKED.SYSIN DD 
ENTRY PASCALVS 

7% 

//GO.INPUT DD... 
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This section applies only to those who 
are using Pascal/VS under the Conversa- 
tional Monitor System (CMS) of Virtual 
Machine Facility/370 (VM7370). If you 
are not using CMS then you may skip 
this entire section. 


For a description of the syntax nota- 
tion used to describe commands, see 
"Command Syntax Notation" on page 163. 


There are four steps to running a 


Pascal/VS program under CMS. 


2.1 HOW TO COMPILE A PROGRAM 


PASCALVS 


fn [ft [fm] ] |( Coptions...] [pein 


2.0 RUNNING A PROGRAM UNDER CMS 


1. The program is compiled to produce 
an object module; 


2. A load module is generated from the 
object module; 


3. All files used within the program 
are defined using the FILEDEF com- 
mand; 


4. The load module is invoked. 


DISK 
[NOOBJ] 


| [CONSOLE] 


NOPRINT 


C[LIB(maclibs...)] 


Figure l. 


2.1.1 Invoking the Compiler 


The standard method of invoking the 
Pascal/VS compiler under CMS is by 
means of an EXEC-called PASCALVS. 


To compile a Pascal/VS program, the 
EXEC may be invoked in its simplest 
form by the command 


PASCALVS fn 


where "fn" is the file name of the pro- 
gram. If the file type is not explic-— 
itly specified, the type "PASCAL" will 
be assumed. 


The compiler translates a source pro- 
gram into object code, which it stores 
in a file. The name of this file is 
idantical to the name of the source 
program. Its file type is "TEXT". 


For example, to compile a program which 
resides ina file called "SORT PASCAL", 
the command would be: 


PASCALVS SORT 
If the compilation completes without 


errors, then the file named "SORT TEXT" 
will contain the resulting object code. 


The PASCALVS command of CMS: 


invokes the Pascal/VS compiler. 


2.1.2 The PASCALVS Command 


The generalized form of the PASCALVS 
command is illustrated in Figure l. 
The operands of the command are defined 
as follows: 


fn ft fm 
is the file name, file type, and 
file mode of the source program. 
The file type and file mode are 
optional. The default file type is 
"PASCAL" and the default file mode 
is "HE", 


maclibs... 
are optional macro libraries 
required by the “INCLUDE facility. 
Up to eight may be specified. 


options... 
are compiler options, see "Compil- 
er Options" on page 31. 


The command options DISP, PRINT, and 


NOPRINT specify where the compiler 
listing is to be placed. 
DISK 


specifies that the listing is to be 
stored as a file on your A disk. 
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The file is named "fn LISTING", 
where "fn" is the file name of the 
source program. This option is the 
default. 


PRINT 
specifies that the listing is to be 
spooled to your virtual printer. 


NOPRINT 
specifies that the listing is to be 
suppressed. This option automati- 
cally forces the following three 
compiler options to become active: 


- NOSOURCE 
~ NOXREF 
- NOLIST 


CONSOLE 

specifies that the console mes- 
sages produced by the compiler are 
be stored as a file on your A disk. 
The name assigned to the file is 
"fn CONSOLE". If CONSOLE jis not 
specified, then the messages will 
be displayed on your terminal con- 
sole. 


NOOBS 
suppresses the production of an 
object module by disabling the code 
generation phase of the compiler. 
This option is useful when you are 
using the compiler only as an error 
diagnoser. 


For an explanation of the possible 
error messages and return codes 
produced from the EXEC, see "Messages 
from PASCALVS exec" on page 159. 


2.1.3 The *%INCLUDE Maclibs 


The macro libraries (maclibs) that may 
be specified when invoking the PASCALVS 
command are those required by the 
“%INCLUDE facility. When the compiler 
encounters an %INCLUDE statement with- 
in your program it will search the 
maclibs (Cin the order in which they 
were specified in the PASCALVS command) 
for the member named. When found, the 
maclib member becomes the input stream 
for the compiler. After the compiler 
has read the entire member, it will 
continue reading in the previous input 
stream Cimmediately following the 
4%INCLUDE statement). 


The default maclib named PASCALVS need 
not be specified. It is always implic-— 
itly provided as the last maclib in the 
search order. 
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2.1.4 Passing Compiler Options 


Compile time options (see "Compiler 
Options" on page 31) are parameters 
that are passed to the compiler which 
specify whether or not a particular 
feature is to be active. A list of 
compiler options may be specified in 
the PASCALVS parameter list. The 
options list must be preceded by a left 
parenthesis "(", 


For instance, to compile the program 
"TEST PASCAL" with the debug feature 
enabled and without a cross reference 
table, you would invoke the following 
command: 


PASCALVS TEST ( DEBUG NOXREF 


2.1.5 The Compiler Listing 


The compiler generates a listing of the 
source program with such information as 
the lexical nesting structure of the 
program and cross reference tables. 
For a detailed description of the 
information on the source listing see 
"Source Listings” on page 37. 


2.1.6 Compiler Diagnostics 


Any compiler-detected errors in your 
program will be displayed on your ter- 
minal console Cor written to a disk 
file if the CONSOLE options is speci- 
fied). The errors will also be indi- 
cated on your source listing at the 
lines where the errors were detected. 
The diagnostics are summarized at the 
end of the listing. 


When an error is detected, the source 
line that was being scanned by the com- 
piler is displayed on your console. 
Immediately underneath the printed 
line a dollar symbol (']') is placed at 
each location where an error was detec” 
ted. This symbol serves as a pointer 
to the approximate location where the 
error occurred within the source 
record. 


Accompanying each error indicator is an 
error number. Beginning with the fol- 
lowing line of your console a diagnos- 
tic message is produced for each error 
number. 


For a synopsis of the compiler-gener- 
ated messages see "Pascal/VS Compiler 
Messages" on page 131. 


2.1.7 Sample Compilation 


edit copy pascal 
NEW FILE: 
program copy; 
var 
infi le, 
outfile <= text; 
buffer : string; 
begin 
resetCinfile); 
rewriteCoutfile); 
while not eofCinfile) do 
begin 
readinCinfile,buffer); 
writelnCoutfile buffer) 
end; 
end. 


EDIT: 


file 
FILE SAVED 


Rs T=0.2570.62 06:56:44 
pascalvs copy 


INVOKING PASCAL/VS R2.0 


WRITELNCOUTFILE BUFFER 


ERROR 41: Comma ',* expected 
1 ERROR DETECTED. 


SOURCE LINES: 163; COMPILE TIME: 0.16 SECONDS; COMPILE RATE: 6109 LPM 


RETURN CODE: 8 
R(00008); T=0.34/0.67 06:56:59 


Figure 2. Sample compilation under CMS 


Running a Program under CMS 11 


2.2 HOW TO BUILD A LOAD MODULE 


PASCMOD 


main [names ... 1] [€ (€ options... ()1]] 


Figure 3. The PASCMOD command: 


The PASCMOD EXEC generates load modules 
from Pascal/VS object code. If your 
program consists of just one source 
module (that is, you have no segment 
modules}, a load module can be genera- 
ted by simply invoking PASCMOD with the 
name of the program. For example, if a 
program named SORT was successfully 
compiled (which implies that "SORT 
TEXT” exists}, then a load module may 
be generated with: 


PASCMOD SORT 


The resulting module would be called 
"SORT NODULE". A load map is stored in 
"SORT MAP". 


The general form of the PASCMOD command 
is shown in Figure 3. 


The operands of the command are defined 
as follows: 


main 
is the name of the main program 
module. 


names... 

are the names of segment modules 
and text libraries CTXTLIB's) 
which are to be included. If a 
name "nN" is specified and there are 
two files named nm TEXT and nn 
TXTLIB, then the TEXT file will be 
included and the TXTLIB will be 
searched. 


options... 
is a list of options. (see "Module 
Generation Options."™) 


The resulting load module will be given 
the name "main MODULE A". The load map 
of the module will be stored in "main 
MAP A". 


The Pascal/VS run time library resides 
in "PASCALVS TXTLIB"; PASCMOD implic-— 
itly appends this library to the list 
that you specify. 
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generates a Pascal/VS load module. 


As an example, let us build a load mod- 
ule for a pre-compiled program which 
resides in three source modules: MAIN, 
ASEG, and BSEG. This program calls 
routines that reside in a txtlib called 
UTILITY. The following command would 
generate a load module called MAIN 
MODULE: 


PASCMOD MAIN ASEG BSEG UTILITY 


2.2.1 Module Generation Options 


The following are recognized as options 
to the PASCMOD command. 


DEBUG 
specifies that the debugging rou- 
tines are to be linked into the 
load module so that the interactive 
debugger can be used. (See 
"Pascal/VS Interactive Debugger" 
on page 65.) 


NAME name 
specifies an alternate name for the 
load module. The resulting load 
module and map will have the name 
"name MODULE A” and "name MAP A", 


2.2.2 Run time Libraries 


Routines which make up the Pascal/VS 
runtime environment reside in a text 
library called "PASCALVS TXTLIB". It 
must be present in order to resolve the 
linkages from the program being pre- 
pared for execution. 


The name of the txtlib which contains 
the runtime Debug support is "PASDEBUG 
TXTLIB"™. (see "Pascal/VS Interactive 
Debugger” on page 65 for a description 
of Debug}. 


Cc 


2.3 HOW TO DEFINE FILES 


FILEDEF SYSIN DISK INPUT DATA 


FILEDEF SYSPRINT PRINTER CLRECL 133 RECFM VA 
FILEDEF OUTPUTFI DISK OUTPUT DATA CRECFM F LRECL 4% 


FILEDEF OUTPUT TERMINAL CRECFM F LRECL 80 
FILEDEF INPUT TERMINAL CRECFM V LRECL 80 


Figure 4. Examples of CMS file definition commands 


Before you invoke the generated load 
module, you must first define the files 
that your program requires. This is 
done with the FILEDEF command. 


The first parameter of the FILEDEF com- 
mand is the file's ddname. The ddname 
to be associated with a particular file 
variable in your program is normally 
the name of the file variable itself, 
truncated to eight characters. 


For example, the ddnames for the vari- 
ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, 
SYSPRINT > TEXT; 
OUTPUTFILE : file of 


INTEGER; 


If a particular file is to be opened 
for input, attributes such as LRECL, 
BLKSIZE, and RECFM are obtained from 
the Cpresumably) already existing 
file. Note: A file that is being 
defined to the terminal requires you to 
explicitly specify RECFM and LRECL on 
the FILEDEF command. 


For the case of files to be opened for 
output, the LRECL, BLKSIZE, or RECFM 
Will be assigned default values if not 
specified. For a description of the 
defaults see "Data Set DCB Attributes" 
on page 45. 


The FILEDEF commands required for each 
of the three file variables in the 


example above and for INPUT and OUTPUT 
could be as shown in Figure 4. 


2.4 HOW TO INVOKE THE LOAD MODULE 


After the module has been created and 
the files defined, you are ready to 
execute the program. This is done by 
invoking the module. 


If your program expects to read a 
parameter list via the PARMS function, 
the list must follow the module name: 


modname [Cparms...] 


where "modnama”™ is the name of the load 
module and “parins"™ are the parameters 
Cif any) being passed. 


Run time options are also passed as a 
parameter list. To distinguish runtime 
parameters being passed to the 
Pascal/VS environment from those that 
your program will read (via the PARMS 
function), the runtime parameter list 
must be terminated with a slash "s/s", 
The program parameters, if any, must 
follow the "s/s". 


modname C€ [rtparms...7] [parms...] ] 
For a description of the run time 


options see "Run Time Options" on page 
35. 
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This section describes how to compile 
and execute a Pascal/VS program under 
the Time Sharing Option (TSO) of 
OS/VS2. If you are not using TSO to 
run the compiler, you may skip this 
section. 


Refer to "Command Syntax Notation™ on 
page 163 for a description of the syn- 
tax notation used to describe commands. 


There are four steps to running a 
Pascal/VS program. 


3.1 HOW TO COMPILE A PROGRAM 


3.0 RUNNING A PROGRAM UNDER TSO 


1. The program is compiled to form an 
object module; 


2. A load module is generated from the 
object module; 


3. All data sets used within the pro- 
gram are allocated; 


4. The load module is invoked. 


CLIST NAME OPERANDS 


PASCALVS da 


[c 


| 


Figure 5. PASCALVS CLIST syntax. 


3.1.1 Invoking the Compiler 


The Pascal/VS compiler is invoked under 
TSO by means of a CLIST. A sample 
CLIST named PASCALVS is provided to 
compile a Pascal/VS program. 


data-set-name 
specifies the name of the primary 
input data set in which contains 
the source program to be 
compiled. This can be either a 
fully qualified name (Cenclosed 
in single quotation marks) or a 
simple name (to which the user 


ta-set-name 


ompiler-options-list] 


OBJECT(dsname) 
NOOBJECT 


SYSPRINT(sysout-class) 
NOPRINT 


CONSOLE(*) 
CONSOLE(dsname ) 


LIB(dsname-list) 
NOLIB 


PRINT(%) 
PRINT(dsname) 


identification will be prefixed 
and the qualifier "PASCAL" will 
be suffixed). This must be the 
first operand specified. 


compiler-options-list 
specifies one or more compiler 
options. See "Compiler Options" 
on page 31. 


OBJECT (dsname ) 
specifies that the object module 
produced by the compiler is to be 
written to the data set named in 
the parentheses. This can be 
either a fully qualified name 
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Cenclosed within triple quota- 
tion marks '''...''")! or oa 
simple name (to which the iden- 
tification qualifier will be 
prefixed and the qualifier "OBJ" 
suffixed). 


NOOBJECT 
specifies that no object module 
is to be produced. The compiler 
will diagnose errors only. 


If neither OBJ nor NOOBJ is spec- 
ified then object module 
produced by the compiler will be 
written to a default data set. 
If the data set specified in the 
first operand contains a 
descriptive qualifier of 
"PASCAL", the CLIST will form a 
data set name for the object mod- 
ule by replacing the descriptor 
qualifier of the input data set 
with "OBJ". If the descriptive 
qualifier is not "PASCAL", then 
you will be prompted for the 
object module data set name. 


If the first operand of PASCALVS 
specifies the member of a parti- 
tioned data set, then the name of 
the associated object module 
will be generated as just 
described. If the object module 
data set is a partitioned data 
set, then the object module will 
become a member within the PDS 
and will have the same name as 
the member name of the input data 
set. 


As an example, given that the 
user identification is ABC, the 
following commands will produce 
object modules with the name 
shown. 


PASCALVS SORT 
object module: 'ABC.SORT.OBJ 


PASCALVS ‘DEF.PDS.PASCAL(MAIN) 
object module: 
"DEF.PDS.OBJCMAIN)* 


PASCALVS ‘ABC.PROG.PAS’” 
user prompted for object 
module name 


PRINT(X) 
specifies that the compiler 


data set named in the 
parentheses. This can be either 
a fully qualified name Cenclosed 
within triple quotation marks 
mre llt''y2 or a simple name (to 
which the identification qual- 
ifier will be prefixed and the 
qualifier "LIST" suffixed). 


SYSPRINT(Sysout-class) 
specifies that the compiler 
listing is to be written to the 
sysout class named in parenthe- 
ses. 


NOPRINT 
specifies that the compiler 
listing is not to be produced. 
This operand activates the fol- 
lowing compiler options: 
NOSOURCE, NOXREF, NOLIST 


CONSOLE(*) 
specifies that the compiler gen- 
erated messages are to be dis- 
played on the terminal console. 
This is the default. 


CONSOLE(dsname) 

specifies that the compiler gen- 
erated messages are to be written 
to the data set named in the 
parentheses. This can be either 
a fully qualified name (enclosed 
within triple quotation marks 
rrell.''*) or a simple name (to 
which the identification qual- 
ifier will be prefixed and the 
qualifier "CONSOLE" suffixed). 


LIB(dsname-list) 

specifies that the %INCLUDE 
facility is being utilized. 
Within the parentheses is a list 
of the names of one or more par- 
titioned data sets that are to be 
searched for members to be 
included within the input 
stream. 


If the list contains more than 
one name, the entire list must be 
enclosed within quotes. Any ful- 
ly qualified name within the 
quoted list must be enclosed in 
double quotes ''...'f, 
See "Using the %INCLUDE 
Facility™ on page 17. 


listing is to be displayed on the NOLIB 
terminal; no other copy will be specifies that no “%INCLUDE 
available. libraries are required. This is 
the default. 
PRINT (dsname ) 
specifies that the compiler 
listing is to be written on the 
1 Triple quotes are required because the CLIST processor removes the outer 
quotes within a keyword sub-operand list. 
2 Triple quotes are required because the CLIST processor removes the outer 


quotes within a keyword sub-operand list. 
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J 


J 


Example 1 


Operation: Invoke the Pascal/VS com- 
piler to process a 
Pascal/VS program 


Known: User-identification is ABC 


Data set containing the pro- 
gram is named ABC.SORT.PASCAL 


The compiler listing is to be 
directed to the printer. 


Default options and data set 
names are to be used. 


PASCALVS SORT SYSPRINTCA) 


Example 2 


Operation: Invoke the Pascal/VS com- 
piler to process a 
Pascal/VS program 


Known: User-identification is XYZ 


Data set containing the pro- 
gram is named ABC.TEST.PASCAL 


The compiler listing is to be 
directed to a data set named 
XYZ. TESTLIST.LIST. 


The long version of the cross 
reference listing is pre- 
ferred. 


Default options and data set 
names are to be used for the 
rest. 


PASCALVS 'ABC.TEST.PASCAL" + 
XREFCLONG),PRINTCTESTLIST) 


3.1.2 Using the %INCLUDE Facility 


If the “INCLUDE facility is used within 
the source program, then the names of 
the library or libraries to be searched 
must be listed within the LIB parameter 
of the PASCALVS CLIST. 


The standard include library supplied 
by IBM is called*® 


"SYS1.PASCALVS.MACLIB"™ 


This library must be specified in the 
LIB list if your program contains an 
%INCLUDE statement for one of the IBM 
supplied members. 


When the compiler encounters an 
“ZINCLUDE statement within the source 
program, it will search the partitioned 


3 The high-level 
installation. 


qualifier name 


(SYS1) may be 


data set(s) in the order specified for 
the member named within the statement. 
When found, the member becomes’ the 
input stream for the compiler. After 
the compiler has read the entire 
member, it will continue reading from 
the previous input stream immediately 
following the “INCLUDE statement. 


Example 1 


Operation: Invoke the Pascal/VS com- 


piler to process a 
Pascal/VS program which 
utilizes the “INCLUDE 
facility. 


Known: User-identification is P123 


Data set containing the pro- 
gram is named 


*P123.MAIN.PASCAL' 


The source to be included is 
stored in two partitioned 
data sets by the names of 


"P123.PASLIB‘ 
"SYS1.PASCALVS.MACLIB". 


Default options and data set 
names are to be used for the 
rest. 


PASCALVS MAIN LIBC'PASLIB,+ 
""SYS1.PASCALVS.MACLIB''') 


3.1.3 Compiler Diagnostics 


By default, compiler diagnostics are 
displayed on your terminal. If the 
CONSOLE(dsname) operand appears on the 
PASCALVS command, then the diagnostics 
will be stored in a data set. The 
errors Will also be indicated on your 
source listing at the lines where the 
errors were detected. The diagnostics 
are summarized at the end of the list- 
ing. 


When an error is detected, the source 
line that was being scanned by the com- 
piler is printed on your terminal (Cor 
to the CONSOLE data set). Immediately 
underneath the printed line, a dollar 
symbol ('$') is placed at each location 
where an error was detected. This sym- 
bol serves as a pointer to indicate the 
approximate location where the error 
occurred within the source record. 


Accompanying each error indicator is an 
error number. Beginning with the fol- 
lowing line of your console a diagnos- 
tic message is produced for each error 
number. 


different at your 
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For a synopsis of the compiler genera- 
ted messages see "Pascal/VS Compiler 
Messages" on page 131. 


3.2 HOW TO BUILD A LOAD MODULE 


CLIST NAHE OPERANDS 


PASCMOD 


data-set-name or x 


[OBJECT( *dsname-list')] 
[DEBUS] 


[LOAD 


[ 


[LIB ( 
MAP 


NONMAP 


XREF 
NOXREF 


SCTR 
NOSCTR 


NE 


NONE 


TEST 
NOTEST 


[SIZE 
[DCBS 


PRINT () 
PRINT(dsname) 
NOPRINT 


(dsname)] 


LET 
NOLET 


XCAL 
NOXCAL 


*dsname-list’ J] 


] 
J 
] 


] 
[FORTLIB] 


] 
] 
J 


] 
[COBLIB] 


] 
] 
] 


NCAL 
NONCAL 


[ LIST 
NOLIST 

REUS 

NOREUS 


REFR 
NOREFR 


OVLY 
NOOVLY 


RENT 
NORENT 


C 
C 


OL 
NOOL 


boc 
NODC 


NOTERM 
TERM 


J 


[ 


(*integerl integer2')] 
(blocksize)] 


[AC(authorization-code)] 


Figure 6. 


To generate a load module’ from 
Pascal/VS object module, you may use 
either the TSO LINK command or a CLIST 
named "PASCMOD” (Figure 6). The CLIST 
performs the same function as the LINK 
command except that it will automati- 
cally include the Pascal/VS runtime 
library in generating the load module. 
Also, i f the debugger is to be 
utilized, the CLIST will include the 
Pascal/VS debug library. CA complete 
description of the LINK command is con- 
tained in the TSO Command Lanquage 
Reference Manual.) 


a 


Every Pascal/VS object module contains 
references to the runtime support rou- 


tines. These routines are stored ina 
library called‘ 
4 The high-level qualifier name 


installation. 
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The TSO PASCMOD CLIST description. 


"SYS1.PASCALVS.LOAD” 


This library must be linked into a 
Pascal/VS object module in order to 
resolve all external references prop- 


erly. If the PASCMOD CLIST is used, 
this library is included 
automatically. 

If the interactive debugger is to be 
utilized, then the library containing 


included 
of this 


the debug environment must be 
in the linking. The name 
library is* 


"SYS1.PASDEBUG.LOAD” 


This library must appear ahead of the 
runtime library in search order. If 
the PASCMOD CLIST is used, this library 


CSYS1) may be different at your 


Will be included if the option DEBUG is 
specified. 


If more than one object module is being 
linked together, then an entry point 
should be specified by means of a link- 
age editor control card. The name of 
the entry point for any Pascal/VS pro- 
gram 1s PASCALVS. 


data-set-name 

specifies the name of a data set 
containing a Pascal/VS object mod- 
ule and/or linkage editor control 
cards. If more than one object 
module is to be linked, then their 
names should appear in the OBJECT 
sub-parameter list. 


You may substitute an asterisk (*) 
for the data set name to indicate 
that you will enter control state- 
ments from your terminal. The sys- 
tem wWill prompt you to enter the 
control statements. A null line 
indicates the end of your control 
statements. 


OBJECT("*dsname-list") 
specifies a list of data sets which 


contain object modules to be 
included in the link edit. Because 
of CLIST restrictions, the list 


must be enclosed in single quotes; 
fully qualified names within the 
list must be enclosed in double 
quotes Ch rll. th), 


LIB('dsname-list") 

specifies one or more names of 
library data sets to be searched by 
the linkage editor to locate load 
modules referred to by the module 
being processed, that 1s, to 
resolve external references. The 
name of the Pascal/VS runtime 
library is implicitly appended to 
the end of this list; you need not 
specify it. 


Because of CLIST restrictions, the 
list must be enclosed in single 


fully qualified 


quotes; names 
within the list must be enclosed in 
double quotes (''...°"), 

DEBUG 


specifies that the Pascal/VS 
interactive debugger is to be uti- 
lized on the resultant load module. 
This will cause the Pascal/VS debug 
library to be included among the 
libraries to be searched to resolve 
external references. 


All other operands of the PASCMOD CLIST 
are identical to their counterparts in 
the LINK command as described in the 
TSO Command Language Reference Manual. 


Example 


Operation: Create a load module from 
a compiled Pascal/VS pro- 
gram consisting of three 
object modules. 


Known: User-identification is ABC. 
Data sets containing the 
three object modules: 


ABC.SORT.OBJ 
ABC.SEG1.0BJ 
ABC.SEG2.0BJ 


The resulting load module is 
to be stored as a member named 
SORT in a data set named 
ABC.PROGS.LOAD 


(The user's input is in lower case; 
the system replies are 
high-lighted. ) 
pascmod * load(progs(sort)) + 
object('sort,segl,seg2") 
ENTER CONTROL CARDS 
entry pascalvs 


READY 
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3.3 HOW TO DEFINE FILES 


ATTR F80 LRECL(80) BLKSIZEC(80) RECFM(F) 

ALLOC DDNAMECSYSIN) DSNAMECINPUT.DATA) SHR 

ALLOC DDNAMECSYSPRINT) SYSOUTCA) 

ALLOC DDNAMECOUTPUTFI) DSNAMECOUTPUT.DATA) NEW SPACEC100) BLOCK(3120) 
ALLOC DDNAMECOUTPUT) DSNAMECX) USING(CF8&0) 

ALLOC DDNAMECINPUT) DSNAMEC*%) USINGCF80) 


Figure 7. Examples of TSO data set allocation commands 


Before you invoke the generated load | For the case of files to be opened for 

module, you must first define the files output, the LRECL, BLKSIZE, or RECFM 

that your program requires. This is will be assigned default values if not 

done with the ALLOC command. specified via the ATTR command. For a 
description of the defaults see "Data 

The ddname to be associated with a par- Set DCB Attributes" on page 45. 

ticular file variable in your program 

is normally the name of the variable The ALLOC commands required for each of 

itself, truncated to eight characters. the three file variables in the example 
above and for INPUT and OUTPUT could be 

For example, the ddnames for the vari- as shown in Figure 7. 


ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, 
SYSPRINT > TEXT; 
OUTPUTFILE : file of 


INTEGER; 


3.4 INVOKING THE LOAD MODULE 


dsnamel (member )J { "'Loptions’] [parms]' ] 


Figure 8. The TSO CALL command to invoke a load module 


After the module has been created and options 
the files defined, you are ready to specifies one or more run time 
execute the program. This is done by options separated by either a comma 
the CALL command (see Figure 8). The er a blank. (See "Run Time Options" 
operands of the CALL command are as on page 35.). 
follows. 
parms 
dsname(member ) specifies a parameter string which 
specifies the name of a partitioned is to be passed to the program. 
data set and the member where the The parameter string is retrieved 
load module to be invoked is from within the program by the 
stored. If the member name is PARHS function. 
omitted, then the member 
“TEMPNAME” will be the load module The total length of the quoted string 
invoked. (options plus parms) must not exceed 


100 characters. 
dsname may be either a simple name 
(to which the user identification 
is prefixed and the qualifier 
"LOAD" is suffixed), or a fully 
qualified name in quotes. 
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READY 
pascalvs lander sysprint(a) list 
INVOKING PASCAL/VS R2.0 
NO CONPILER DETECTED ERRORS 
SOURCE LINES: 473; COMPILE TIME: 0.19 SECONDS; COMPILE RATE: 15032 
READY 


pascmod lander load(€programs( lander) ) 
READY 


alloc ddnameCinput) dsname(*) 
READY 


alloc ddnameCoutput) dsname() 
READY 


call programs(€lander) 'parms go here' 


Figure 9. Sample TSO session of a compile, link-edit, and execution. 


Figure 9 is an example of a TSO session the terminal are in lower case; those 
which compiles an already existing produced by the system are in upper 
source module, link edits it, and exe- case and high-Lighted. 

cutes it. The commands entered from 
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This section describes how to compile 
and execute Pascal/VS programs in an 0S 
Batch environment. If you are not 
using the compiler under OS Batch then 
you may skip this section. 


§.1 JOB CONTROL LANGUAGE 


Job control language (JCL) is the means 
by which you define your jobs and job 
steps to the operating system; it 
allows you to describe the work you 
want the operating system to do, and to 
specify the intput/output facilities 
you require. 


The JCL statements which are essential 
to run a Pascal/VS job are as follows: 


° JOB statement, which 
the start of the job. 


identifies 


° EXEC statement, which identifies a 
job step and, in particular, speci-~ 


//EXAMPLE JOB 
//STEPIL EXEC PASCCG,PARH='"LIST* 
//7PASC.SYSIN DD ® 
program EXAMPLECINPUT,OUTPUT); 
var 
A, B: REAL; 
begin 
RESETCINPUT); 
while not EQFCINPUT) do 
begin 
READLNCA,B); 
WRITELNC* SUM 
WRITELNC" PRODUCT 
end 


//GO.INPUT DD * 
3.0 4.0 
3.14159 1.414 
1.0E-10 2.0E-10 
-10.0 102.0 

/% 


Figure 10. 


The job control statements shown in 
Figure 10 are sufficient to compile and 
execute a Pascal/VS program consisting 
of one module. This program uses only 
the standard files INPUT and OUTPUT. 
For a more generalized description of 
input/output refer to "How to Access 
Data Sets" on page 29 and "Using 
Input/Output Facilities” on page 45. 


Any options to be passed to the compil- 
er are placed within the PARM string of 
the EXEC statement. 


§.0 RUNNING A PROGRAM UNDER OS BATCH 


fies the program to be executed, 
either directly or by means of a 
cataloged procedure (described 
subsequently). 


° DD Cdata definition) statement, 
which defines the input/output 
facilities required by the program 
executed in the job step. 


° 7% (Cdelimiter) statement, which 
separates data in the input stream 
from the job control statements 
that follow this data. 


A full description of job control lan- 


guage 15 given in the publication 
asS/VS2 JCL (GC28-0692). 


2 HOW TO COMPILE AND EXECUTE A PRO- 
A 


Sample JCL to run a Pascal/VS program 


In the sample JCL, “EXAMPLE” is the 
name of the job. The job name identi- 
fies the job within the operating sys- 
tem; it is essential. The parameters 
required in the JOB statement depend on 
the conventions established for your 
installation. 


The EXEC statement invokes the IBM sup- 
plied cataloged procedure named 
PASCCG. When the operating system 
encounters this name, it replaces the 
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EXEC statement with a set of JCL state- 
ments that have been written previously 
and cataloged ina system library. The 


cataloged procedure contains two 
steps: 
PASC invokes the Pascal/VS compiler 


to produce an object module. 


icye) invokes the LOADER to process 
the object module by loading it 
into memory and including the 
appropriate runtime library 


routines. The resulting exe- 
cutable program is immediately 
executed. 


The DD statement named "PASC.SYSIN" 
indicates that the program to be proc- 
essed in procedure step PASC follows 
immediately in the card deck. "SYSIN" 
is the name that the compiler uses to 
refer to the data set or device on 
which it expects to find the program. 


The delimiter statement /* indicates 
the end of the data. 


The DD statement named "GO.INPUT™ jindi- 
cates that the data to be processed by 
the program (Cin procedure step GO) fol-~ 
lows immediately in the card deck. 


4,3 CATALOGED PROCEDURES 


Regularly used sets of job control 
statements can be prepared once, given 
a name, stored in a system library, and 
the name entered in the catalog for 
that library. Such a set of statements 
is termed a cataloged procedure. A 
cataloged procedure comprises one or 
more job steps (though it is not a job, 
because it must not contain a JOB 
statement). It is included in a job by 
specifying its name in an EXEC state- 
ment instead of the name of a program. 


Several IBM-supplied cataloged proce- 
dures are available for use with the 
Pascal/VS compiler. It is primarily by 
means of these procedures that a 
Pascal/VS job will be run. 


The use of cataloged procedures saves 
time and reduces errors in coding fre- 
quently used sets of job control state- 
ments. If the statements in a 
cataloged procedure do not match your 
requirements exactly, you can easily 
modify them or add new statements for 
the duration of a job. 


It is recommended that each installa- 
tion revien these procedures and modify 
them to obtain the most efficient use 
of the facilities available and to 
allow for installation conventions. 
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4.4 IBM SUPPLIED CATALOGED PROCEDURES 


The standard cataloged procedures sup- 
plied for use with the Pascal/VS com- 
piler are: 


PASCC Compile only 
PASCCG Compile, load-and-execute 
PASCCL Compile and link edit 


PASCCLG Compile, link edit, and exe- 
cute 


These cataloged procedures do not 
include a DD statement for the source 
program; you must always provide one. 
The DDname of the input data set is 
SYSIN; the procedure step name which 
reads the input data set is PASC. For 
example, the JCL statements that you 
might use to compile, link edit, and 
execute a Pascal/VS program is as fol- 
lows: 


//JOBNAME JOB 
//STEP1 EXEC PASCCLG 
7/PASC.SYSIN DD 


Cinsert Pascal/VS program here 
to be compiled) 


7% 


The listings and diagnostics produced 
by the compiler are directed to the 
device or data set associated with the 
DDname SYSPRINT. Each cataloged proce- 
dure routes DDname-SYSPRINT to the out- 
put class where the system messages are 
produced (SYSOUT=). 


The object module produced from a com- 
pilation is normally placed in a tempo- 
rary data set and erased at the end of 
the job. If you wish to save it ina 
cataloged data set or punch it to cards 
then the DDname SYSLIN in procedure 
step PASC must be overridden. For 
example, to compile a program stored in 
data set 


"T123.SORT.PASCAL" 


and to store the resulting object mod- 
ule in a data set named 


"T123.SORT.OBJ" 
the following JCL might be employed: 


//JOBNAME JOB 


//STEP1 EXEC PASCC 

7/PASC.SYSIN DD DSN=T123.SORT.PASCAL, 
4/ DISP=SHR 
7/7PASC.SYSLIN DD DSN=T123.S0RT.OBJ, 

47 UNIT=TSOPACK, 

4 DISP=(NEW, CATLG) 


2 


4.4.1 Compile Only (PASCC) 


J/PASCC 
11% 

71% INVOKE PASCAL/VS COMPILER 
77% 

/7PASC EXEC 
//OUCODE DD 
//OUTPUT DD 
//STEPLIB DD 
//5YSLIB DD 


SPACE=C(TRK,(2,5)), 


PROC SYSOUT="*', INCLLIB="SYS1.PASCALVS.MACLIB' 


PGM=PASCALI,PARM=,REGION=512K 
SYSOUT=&SYSOUT 
SYSOUT=&SYSOUT 
DSN=SYS1.PASCALVS.LINKLIB,DISP=SHR 
DSN=&INCLLIB,DISP=SHR 
// DD DSN=SYS1.PASCALVS.MACLIB,DISP=SHR 
//SYSLIN DD 
4/ 


DSNAME=&&LOADSET,UNIT=SYSDA,DISP=(MOD,PASS), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 


//SYSLIST DD 
// SPACE=(TRK,(2,5)) 
7/7SYSMSGS DD 
77SYSOIN DD 
// SPACE=(TRK,(2,5)) 
7/7SYSPRINT DD 
7/7SYSTERM DD 
//SYSTIN DD 


DUMMY 


// SPACE=(TRK,(2,5)) 
//8YSUTL DD 
// SPACE=(TRK,(2,5)), 


UNIT=SYSDA,DISP=(NEW, DELETE), 


DSN=SYS1.PASCALVS.MESSAGES, DISP=SHR 
UNIT=SYSDA,DISP=(NEW,DELETE), 


SYSOUT=&SYSOUT,DCB=C(RECFM=VBA,LRECL=133,BLKSIZE=685) 
UNIT=SYSDA, DISP=(NEW, DELETE), 
UNIT=SYSDA,DISP=C(NEW, DELETE), 


7/ DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 


7/75YSUT2! DD 
// SPACE=(TRK,(2,5)), 


// 

//SYSXREF DD 
// SPACE=C(TRK,(2,5)) 
//UCODE DD SYSOUT=&SYSOUT 


Figure ll. Cataloged procedure PASCC 


This cataloged procedure (Figure 11) 
compiles one Pascal/VS source module 
and produces an object module. It con- 
sists of one step, PASC, which is com- 
mon to all of the cataloged procedures 
described in this chapter. 


Step PASC reads in the source module, 
diagnoses errors, produces a listing, 
and generates an object module to the 
data set associated with DDname SYSLIN. 


UNIT=SYSDA, DISP=(NEW, DELETE), 


DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 
UNIT=SYSDA,DISP=(NEW, DELETE), 


The DD statement for the object module 
defines a temporary data set named 
&&LOADSET. The term MOD is specified 
in the DISP parameter and as a result, 
if the procedure PASCC is’ invoked 
several times in succession for differ- 
ent source modules, &&LOADSET will 
contain a concatenation of object mod- 
ules. The linkage editor and loader 
will accept such a data set as input. 
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4.4.2 Compile, Load, and Execute 
CPASCCG}) 


7/7PASCCG 


PROC SYSOUT=%,INCLLIB='SYS1.PASCALVS.MACLIB', 


LKLBDSN='"SYS1.PASCALVS.LOAD', 
LINKLIB="SYS1.PASCALVS.LINKLIB’ 


7/7PASC EXEC 


PGM=PASCALI,PARM=,REGION=512K 


(this step is identical to the PASC step in procedure PASCC) 


7/60 EXEC 
“/QUTPUT DD 
//SYSLIB DD 
4/ DD 
7/3YSLIN DD 
“/SYSLOUT DD 
//SYSPRINT DD 


DSN=&LKLBDSN,DISP=SHR 


SYSOUT=&SYSOUT 


Figure 12. 


In this cataloged procedure 
(Figure 12), the first two steps com- 
Pile a Pascal/VS source module to 
produce an object module. In the third 
step Cnamed GO), the loader is 
executed; this program processes the 
object module produced by the compiler 
and executes the resultant executable 
program immediately. 


The DD statement labeled SYSLIB in step 
GO describes the libraries from which 
external references are to be resolved. 
If you have a library of your own from 
which you would like external refer- 
ences to be resolved, then pass its 
name in the LKLBDSN operand. 


Object modules from previous compila- 
tions may also be included in the load- 
er'’s input stream by concatenating them 
in the SYSLIN DD statement. 
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Cataloged procedure PASCCG 


PGM=LOADER, COND=(8,LE,PASC),PARM="EP=PASCALVS'! 
SYSOUT=&SYSOUT,DCB=CRECFM=VBA,LRECL=133,BLKSIZE=685) 


DSN=SYS1.PASCALVS.LOAD,DISP=SHR 
DSN=&&LOADSET,DISP=C(OLD,DELETE?) 


SYSOUT=&SYSOUT, DCB=(RECFM=VBA,LRECL=133) 


As an example, a program in a data set 
named "DOE.SEARCH.PASCAL™ needs to be 
compiled and then loaded with an object 
module named "DOE.SORT.OBJ". In addi- 
tion, several external routines are 
called from within the program which 
reside in a library named 
"DOE.MISC.OBJLIB". The following JCL 
statements would compile the program 
and execute it. 


//DOE JOB 

//STEPI EXEC PASCCG, 

// LKLBDSN="DOE.MISC.OBJLIB'* 
/7/PASC.SYSIN DD DSN=DOE SEARCH.PASCAL, 
// DISP=SHR 

//GO.SYSLIN DD 

// DD DSN=DOE.SORT.OBJ, 

// DISP=SHR 


4.4.3 Compile and Link Edit (PASCCL) 


//PASCCL 


PROC SYSOUT=%,INCLLIB="SYS1.PASCALVS.MACLIB’, 


LKLBDSN="SYS1.PASCALVS.LOAD’, 
LINKLIB="SYS1.PASCALVS.LINKLIB’ 


7/7PASC EXEC 


PGM=PASCALI,PARM=,REGION=512K 


Cthis step is identical to the PASC step in procedure PASCC) 


11% 
11% LK ED 
11% 
7/7LKED EXEC 


//SYSLIB DSN=&LKLBDSN,DISP=SHR 


PGM=ITEWL,PARM="LIST,MAP’,COND=(8,LE,PASC) 


‘/ DSN=SYS1.PASCALVS.LOAD, DISP=SHR 


7/SYSLIN 
4/ DONAME=SYSIN 
//SYSLMOD 
47 SPACE=CTRK,(5,3,1)) 
//SYSPRINT SYSOUT=&SYSOUT 

//SYSUT1 


Figure 13. 


In this cataloged procedure 
(Figure 13), a Pascal/VS source module 
1s compiled to produce an object module 
and then the linkage editor is executed 
to produce a load module. 


The linkage editor step is named LKED. 
The DD statement with the name SYSLIB 
within this step specifies the library, 
or libraries, from which the linkage 
editor will obtain appropriate modules 
for inclusion in the load module. The 
linkage editor altiays places the load 
modules it creates in the standard data 
set defined by the DD statement with 
the name SYSLMOD. This statement in 
the cataloged procedure specifies a new 
temporary library &&GOSET, in which the 
load module will be placed and given 
the member name GO. 


In specifying a temporary library, it 
1s assumed that you will execute the 
load module in the same job; if you 
want to retain the module, you must 
substitute your own statement for the 
DD statement with the name SYSLMOD. 


When linking multiple modules 
together, you must supply an entry 
point. The name of the entry point may 


Cataloged procedure PASCCL 


DSN=&8LOADSET,DISP=COLD, DELETE) 
DSN=&&GOSET(GO),UNIT=SYSDA,DISP=(,PASS), 


UNIT=SYSDA,SPACE=(CYL,(1,1)) 


be either the name of your main 
program, or the name PASCALVS. To 
define an entry point, a linkage editor 
ENTRY control card must be processed by 
the linkage editor. This may be done 
conveniently with a DD statement named 
SYSIN for step LKED which references 
instream data: 


//LKED.SYSIN DD * 
ENTRY PASCALVS 
7¥ 


Multiple invocations of the PASCC cata- 
loged procedure concatenates object 
modules. This permits several modules 
to be compiled and link edited conven- 
iently in one job. The JCL shown in 
Figure 14 on page 28 compiles three 
source modules and then link edits them 
to produce a single load module. With- 
in the example, each source module isa 
member of a partitioned data set named 


"DOE.PASCAL.SRCLIB1". 


The member names are MAIN, SEG], and 
SEG2. The resulting load module is to 
be placed in a preallocated library 
named "DOE.PROGRAMS.LOAD" as a member 
named MAIN. 
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//JOBNAME JOB (DOE),'JOHN DOE’ 
//STEPI EXEC PASCC 

//7PASC.SYSIN DD DSN=DOE.PASCAL .SRCLIBICMAIN),DISP=SHR 
//STEP2 EXEC PASCC 
7/PASC.SYSIN DD DSN=DOE.PASCAL.SRCLIB1(SEG1),DISP=SHR 
//STEP3 EXEC PASCCL 


7/7PASC.SYSIN DD DSN=DOE.PASCAL .SRCLIB1(SEG2),DISP=SHR 
7/7LKED.SYSLMOD DD DSN=DOE.PROGRAMS.LOAD(MAIN),DISP=OLD 


“/LKED.SYSIN DD * 
ENTRY PASCALVS 
7% 


Figure 14. 


-4 Compile, Link Edit, and Execute 
SCCLG) 


Sample JCL to perform multiple compiles and a link edit. 


77PASCCLG PROC SYSOUT=*,INCLLIB="'SYS1.PASCALVS.MACLIB', 
LKLBDSN='SYSI1.PASCALVS.LOAD', 
LINKLIB="SYS1.PASCALVS.LINKLIB’ 


//7PASC EXEC 


PGM=PASCALI,PARM=,REGION=512K 


(this step is identical to the PASC step in procedure PASCC) 


//LKED EXEC 


PGM=ITEWL,PARM="LIST,MAP',COND=(8,LE,PASC) 


(this step is identical to the LKED step in procedure PASCCL) 


//G60 EXEC 
//OUTPUT DD 
//SYSPRINT DD 


Figure 15. 


This cataloged procedure (Figure 15) 
performs a compilation, invokes the 
linkage editor to form a load module 
from the resulting object module, then 
the load module is executed. 
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Cataloged procedure PASCCLG 


PGM=*.LKED.SYSLMOD,COND=((8,LE,PASC),(€8,LE,LKED)) 
SYSOUT=&SYSOUT, DCB=C(RECFM=VBA,LRECL=133,BLKSIZE=685) 
SYSOUT=&SYSOUT, DCB=CRECFM=VBA,LRECL=133) 


The first two steps of this procedure 
are identical to those of the PASCCL 
procedure. An additional third step 
(named GO) executes your program. 


c 


4.5 HOW TO ACCESS AN *XINCLUDE LIBRARY 


The DD statement named SYSLIB in proce- 
dure step PASC defines the libraries 
from which included source is to be 
retrieved. 


When the compiler encounters an %IN- 
CLUDE statement within the source mod- 
ule, it will search the library or 
libraries specified by SYSLIB for the 
member named in the statement. When 
found, the library member becomes the 
input stream for the compiler. After 
the compiler has read the entire 
member, it will continue where it left 
off in the previous input stream. 


You may specify an “INCLUDE library by 
means of the INCLLIB parameter of the 
cataloged procedures, or by overriding 
the SYSLIB DD statement by specifying a 
DD statement with the name PASC.SYSLIB. 


Example 
//JOBNAME JOB 
“7/7 EXEC PASCCG 
//7PASC.SYSLIB DD DSN=...,DISP=SHR 
//PASC.SYSIN DD * 


7% 


%.6 HOW TO ACCESS DATA SETS 


Every file variable operated upon in 
your program must have an associated DD 
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statement for the GO step which exe- 
cutes your program. The DDname to be 
associated with a particular file vari- 
able in your program is normally the 
name of the variable itself, truncated 
to eight characters. 


For example, the DDnames for the vari- 
ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, 
SYSPRINT: TEXT; 
QUTPUTFILE: file of 
INTEGER; 


The file named OUTPUT need not be 
explicitly defined by you if you use 
the cataloged procedures. Both cata~ 
loged procedures which execute a 
Pascal/VS program (PASCCG and PASCCLG) 
contain a DD statement for QUTPUT. 
OUTPUT is assigned to the output class 
where the system messages and compiler 
listings are produced (SYSOUT=%). 


If the Pascal/VS input/output manager 
attempts to open a data set which has 
an incomplete data control block (DCB), 
it will assign default values to the 
DCB as described in "Data Set DCB 
Attributes" on page 45. If you prefer 
not to rely on the defaults, then the 
LRECL, BLKSIZE, and RECFM should be 
explicitly specified in the DCB operand 
of the associated DD statement for a 
newly created data set (that is, one 
whose DISP operand is set to NEW). 
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4.7 EXAMPLE OF A BATCH JOB 


//SOBNAME JOB 
//STEP1 EXEC PASCC,PARM="NOXREF’ 
//PASC.SYSIN DD * 
program COPYFILE; 
type 
F80 = file of 
packed arrayl[1..80] of 
var 
INFILE, OUTFILE: F80; 
procedure COPY(var FIN,FOUT: F8&0); 
external; 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
COPYCINFILE,OUTFILE); 
end. 
7% 
/7/STEP2 EXEC PASCCLG, PARM='"NOXREF’ 
//PASC.SYSIN DD * 
segment I0; 
type 
F80 = file of 
packed arrayl[1..80] of 
procedure COPY(var FIN,FOUT: F8&0);3 
external; 


procedure COPY; 
begin 
while not EOFCFIN) do 
begin 
FOUTS := FINa; 
PUTCFOUT); 
GETCFIN) 
end 
end;. 
7% 
//LKED.SYSIN DD xX 
ENTRY PASCALVS 
7% 
//GQ.INFILE DD 


(data to be copied into data set goes here) 


7% 

//GO.QUTFILE DD DSN=P123456.TEMP.DATA,UNIT=TSOUSER, 
DISP=(NEW,CATLG)> 
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120), 
SPACE=(3120,(1,1)) 


Figure 16. Example of a batch job 
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c 


Compile time options indicate what fea- 
tures are to be enabled or disabled 
when the compiler is invoked. The fol- 


5.0 COMPILER OPTIONS 


lowing table lists all compiler options 


with their abbreviated forms and their 


default values. 


Compiler Option Abbreviated Name Default 


CHECK/NOCHECK 
DEBUG/NODEBUG <a 


GOSTMT/NOGOSTMT GS/NOGS 

LANGLVLCOSTD)/ 
LANGLVLCEXT) 

LINECOUNT(n) LC(n) 


LANGLVLCSTANDARD)Z 
LANGLVL CEXTENDED) 


LIST/NOLIST 2s 


MARGINS (m,n) 

OPTIMIZE/NOOPTIMIZE 
PAGEWIDTH(n) PWC(n) 
PXREF/NOPXREF oes 


SEQUENCE(m,n)/NOSEQUENCE 


5.1 CHECK/NOCHECK 


If the CHECK option is enabled, the 
Pascal/VS compiler will generate 
inline code to perform runtime error 
checking. The %CHECK feature can be 
used to enable or disable particular 
checking code at specific locations 
Within the source program. If NOCHECK 
is specified, all runtime checking will 
be suppressed and all %CHECK statements 
will be ignored. The runtime errors 
ee} may be checked are listed as fol- 
ows: 


CASE statements 
Any case statement that does not 
contain an otherwise clause is 
checked to make sure that the 
selector expression has a value 
equal to one of the case label val- 
ues. 


Function routines 
A call to a function routine is 
checked to verify that the called 
function returns a value. 


Pointers 
A reference to an object which is 
based upon a pointer variable is 
checked to make sure that the 
eevee does not have the value 
nid. 


Subrange scalars 
Variables which are declared as 
subrange scalars are tested when 
they are assigned a value to guar- 
antee that the value lies within 
the declared bounds of the 
variable. This checking may occur 
when either the variable appears on 
the left side of an assignment 


MAR(m,n) 
OPT/NOOPT 


SEQ(m,n)/NOSEQ 
SOURCE/NOSOURCE S/NOS 
WARNING/NOWARNING W/NOW 
XREF/NOXREF X/7NOX 


CHECK 

NODEBUG 

GOSTMT 

LANGLVL CEXTENDED) 


LINECOUNT(60) 
NOLIST 
MARGINS(1,72) 
OPTIMIZE 
PAGEWIDTH( 128) 
PXREF 
SEQUENCE(73,80) 
SOURCE 

WARNING 
XREFCSHORT) 


statement or immediately after a 
routine call in which the variable 
Was passed as a Var parameter. 
(This latter case also includes a 
call to the READ procedure). 


For the sake of efficiency, the 
compiler may suppress checking 
when it is able to determine that 
it is semantically unnecessary. 
For example, the-compiler will not 
generate code to check the first 
three assignment statements below; 
however, the last three will be 


checked. 
var 
A : -10..10; 
B : 0..20; 


B - 10; (no check) 
ABSCA); (¥no check) 
B DIV 2; (¥no check) 


Por: FroY-: 


= B; (¥check *) 
= A*10; (*check *) 
= -B; (¥check *) 


The compiler makes no explicit 
attempt to diagnose the use of 
uninitialized variables; however, 
to help you detect such errors, the 
SETMEM runtime option has been pro- 
vided (see "Run Time Options" on 
page 35). 


Subscript ranges 
Subscript expressions within 
arrays or spaces are tested to 
guarantee that their values lie 
within the declared array or space 
bounds. As in the case of subrange 
checks, the compiler will suppress 
checks that are semantically 
unnecessary. 
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String truncation 
Assignments to varying length 
strings are checked to make sure 
that the destination string vari- 
able is declared large enough to 
contain the source string. 


When a runtime checking error occurs, a 
diagnostic message will be displayed on 
your terminal followed by a traceback 
of the routines which were active when 
the error occurred. If the program is 
invoked from OS Batch, the diagnostic 
message and traceback will be sent to 
the data set or device associated with 
DDname SYSPRINT. You may direct the 
error diagnostics to any file of your 
chnice with the "ERRFILE" option (see 
"Run Time Options" on page 35). 


See "Reading a Pascal/VS Trace Back" on 
page 59 for an example of a traceback 
due to a checking error. 


"User Handling of Execution Errors" on 
page 62 describes how checking errors 
may be intercepted by your program. 


5.2 DEBUG/NODEBUG 


An interactive debugging facility is 
available to debug Pascal/VS programs. 
The debugger is described in “Pascal/VS 
Interactive Debugger" on page 65. If 
the option DEBUG is enabled, the com- 
piler will produce the necessary infor- 
mation that Debug needs in order to 
operate. 


The DEBUG option also implies that the 
GOSTMT option is active. 


NODEBUG indicates that Debug cannot be 
used for this segment. 


5.3 GOSTMT/NOGOSTMT 


The GOSTMT option enables the inclusion 
of a statement table within the object 
code. The entries within this table 
allow the run-time environment to iden- 
tify the source statement causing an 
execution error. This statement table 
also permits the interactive debugger 
to place breakpoints based on source 
statement numbers. For a description 
of the debugger see "Pascal/VS Interac” 
tive Debugger" on page 65. 


The inclusion of the statement table 
does not affect the execution speed of 
the compiled program. 


NOGOSTMT will prevent the statement 
table from being generated. 
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5.4 LANGLVL() 


If LANGLVLCSTANDARD) is specified, the 
compiler will diagnose all constructs 
and features which do not conform to 
"standard" Pascal. Violations of the 
standard will appear as warnings. In 
addition, many of the predeclared iden- 
tifiers which are unique to Pascal/VS 
will not be recognized when 
LANGLVLCSTANDARD) is specified. 


LANGLVLCEXTENDED), which is the 
default, specifies that the full 
Pascal/VS language is to be supported. 


5.5 LINECOUNT(N) 


The LINECOUNT option specifies the num- 
ber of lines to appear on each page of 
the output listing. The maximum number 
of lines to fit on a page depends on 
the form to which the output is being 
printed. 


The default is 60 lines to the page. 


5.6 LIST/NOLIST 


The LIST/NOLIST option controls the 
generation or suppression of the trans- 
lator pseudo-assembler listing (see 
"Assembly Listing" on page 42). 


Note: The NOLIST option will cause any 
“LIST statement within the source pro- 
gram to be ignored. 


5.7  MARGINS(M,N) 


The MARGINS(m,n) option sets the left 
and right margin of your program. The 
compiler scans each line of your pro- 
gram starting at column m and ending at 
column n. Any data outside these mar~ 
gin limits is ignored. The maximum 
right margin allowed is 100 The speci- 
fied margins must not overlap’ the 
sequence field. 


The default is MARGINS(1,72). 


Note: When the PASCALVS clist is being 
invoked under TS0, the subparameters of 
the MARGINS option must be enclosed in 
quotes. For example, 


MARGINS('1,72') 


J 


5.8 OPTIMIZE/NOOPTIMIZE 


The OPTIMIZE option indicates that the 
compiler is to generate optimized code. 
NOOPTIMIZE indicates that the compiler 
is not to optimize. 


5.9 PAGEWIDTH(N) 


The PAGEWIDTH option specifies the max- 
imum number of characters® that may 
appear on a single line of the output 
listing. This number depends on the 
page form and the printer model. 


The default page width is 128 charac- 


ters, 
5.10 PXREF/NOPXREF 
The PXREF option specifies that the 


right margin of the output listing is 
to contain cross reference entries (see 
"Page Cross Reference Field” on page 
38). NOPXREF suppresses these entries. 


5.11 SEQ(M,NJ/NOSEQ 


The SEQ@Cm,n) option specifies which 
columns within the program being com- 
piled are reserved for a sequence 
field. The starting column of the 
sequence field is m; the last column of 
the field isn. 


The compiler ‘does not process sequence 


fields; but serve only to identify 
lines in the source listing. If the 
sequence field is blank, the compiler 


will insert a line number jin the cor- 
responding area in the source listing. 


NOSEQ indicates that there 
sequence field. 


is to be no 


The default is SEQ(73,80). 
NOTES: 


° The sequence field must not overlap 
the source margins. 


e When the PASCALVS clist 
invoked under TSQ, 


is being 
the subparame- 


The number specified 
control characters. 


in the PAGEWIDTH option does not 


ters of the SEQ 
enclosed in quotes. 


option must be 
For example, 


SEQC'73,80') 


5.12 SOURCE/NOSOURCE 
The SOURCE/NOSOURCE option controls 
the generation or suppression of the 


compiler source listing. 


Note: The NOSOURCE option will cause 
any “PRINT statement within the source 
program to be ignored. 


5.13 WARNING/NOWARNING 


This option controls the generation or 
suppression of warning messages. The 
NOWARNING specification will suppress 
warning messages from the compiler. 


5.14 XREF/NOXREF 


The XREF/NOXREF option controls the 
generation or suppression of the 
cross-reference portion of the source 
listing. (See "Cross-reference List- 
ing" on page 40). 


Either a short or long cross-reference 
listing can be generated. A long 
cross-reference listing contains all 
identifiers declared in the program. A 
short listing consists of only those 
identifiers which were referenced. 


To specify a particular listing mode, 
either the word LONG or SHORT is placed 
after the XREF specification and 
enclosed within parentheses. If no 
such specification exists, SHORT is 
assumed. For example, the specifica- 
tion 


XREFCLONG) 


would cause a long cross-reference 


table to be generated. 
Note: If the PASCALVS clist is being 
invoked under T7SQ0, a subparameter 


CSHORT or LONG) must be specified with 
the XREF option; there are no defaults. 


include carriage 
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Features within the Pascal/VS run time 
environment may be enable or disabled 
by passing options to the Pascal/VS 
program. These options are passed to a 
Pascal/VS program through the parame- 
ter passing mechanism. To distinguish 
run time options from the parameter 
string intended to be processed by the 
program, the options must preceed the 
parameter string Cif any) and be termi- 
nated with a slash ("7"), 


The following is a list of supported 
run time options. 


COUNT 
specifies that instruction fre- 
quency information is to be col- 


lected during program execution. 
After the program is completed, 
this information is written to file 
OUTPUT. 


This option will only have an 
effect if the program was both com- 
piled and link-edited with the 
DEBUG option. 


DEBUG 

specifies that the interactive 
debugger (see "Pascal/VS Interac- 
tive Debugger” on page 65) is to 
gain initial control when you 
invoke your program. Note: this 
option is valid only if the load 
module was generated with the DEBUG 
option Csee "Module Generation 
Options” on page 12). 


ERRCOUNT=n 


ERRCOUNT(n) 
specifies how many non-fatal 
errors are allowed to occur before 
the program is abnormally termi- 
nated. The default is 20. 


Note to cCMS users: due to the 
8-character tokenization conven- 
tion of CMS, a blank must precede 
the '=" symbol in the ERRCOUNT spe- 
cification. 


Example: 
modname ERRCOUNT =17 
ERRFILE=ddname 


ERRFILE(ddname) 
specifies tha DDnama of the file to 
which all run time diagnostics are 
to be written. Under CMS and TSO, 
diagnostics are displayed on your 
terminal by default. Under 05S 
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6.0 RUN TIME OPTIONS 


batch, the default error file is 
SYSPRINT. 


Note to CMS users: due to the 
8-character tokenization conven- 
tion of CMS, the "=" symbol must be 
surrounded with blanks. 


Example: 
modname ERRFILE = OUTPUTZ 


HEAP =n 

specifies the number of kilobytes? 
that the heap is to be "extended" 
each time the heap overflows. The 
heap is where memory is allocated 
when the procedure NEW is called. 
When the end of the heap is 
reached, the GETMAIN supervisor 
call is invoked to allocate more 
memory for the heap. If the length 
of the space being required by NEW 
is greater than "n", then the 
amount to be allocated will be the 
length of the space rounded up to 
the next kilobyte (1024 bytes). 


There is aie significant overhead 
penalty for each invocation of GET- 
MAIN. If "n" is too small, GETMAIN 
will be invoked frequently and the 
execution speed of the program will 
be affected. If "n" is too large, 
the heap will contain memory that 
is never used. 


The default HEAP attribute is 12 
kilobytes. 


MAINT 

specifies that when a run time 
error occurs, the trace back is to 
list active run time support rou- 
tines. These routines begin with a 
AMP prefix and are normally sup- 
pressed from the trace back 
listing. This option is used to 
locate bugs within the run time 
environment. 


NOCHECK 
specifies that any checking errors 
detected within the program are to 
be ignored. 


NOSPIE 
specifies that the Pascal/VS run 
time enviroment is not to issue a 
SPIE request and therefore will not 
intercept program interrupts. 


STACK =n 
specifies the number of kilobytes 
that the run time stack is to be 
Yextended”™ each time the stack 
overflows. The run time stack is 


A *"kilobyte” is defined as 1024 bytes in the context of this manual. 
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36 


where thea dynamic storage area 
(DSA) of a routine is allocated 
when the routine is invoked. When 
the end of the stack is reached, 
the GETMAIN supervisor call is 
invoked to allocate more memory for 
the stack. If the length of the 
DSA being required is greater than 
NH", then the amount to be allo- 
cated will be the length of the DSA 
rounded up to the next kilobyte 
(1024 bytes). 


There is a significant overhead 
penalty for each invocation of GET- 
MAIN. If “"n" is too small, GETMAIN 
will be invoked frequently and the 
execution speed of the program will 
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be affected. If "n" is too large, 
the stack will occupy more memory 
than is necessary. 


The default STACK attribute is 12 
kilobytes. 


SETMEM 


specifies that upon entry to each 
Pascal/VS routine, each byte of 
memory in which the routine's local 
variables are allocated will be set 
to a specific value, namely 'FE* 
Chexadecimal). This option aids in 
locating the source of intermit- 
tent errors which occur because of 
the use of uninitialized 
variables. 


c 
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7.0 HOW TO READ PASCAL/VS LISTINGS 


7.1 SOURCE LISTINGS 


PASCAL/VS RELEASE 2.0 
BPCI 


UTILITY: 14°48:54 PAGE 5 


PAGE XREF 


01727781 


SOURCE PROGRAM 
INCLUDE 1 FROM SYSLIB_ (GLOBALS ) 
V---4---- 1----4----2----4+----3---7/--7-V SEQ NO 


STMT # 


1: | 00000100 
1: |type 00000200 R 
12 | NAMEPTR = QNAMEREC; 00000300 * x 
13 | NAMEREC = 00000400 x 
1: | record 00006500 R 
1: | NAME : STRING(30);3 00000600 * P 
1: | LEFT_LINK, 00000700 x 
1: | RIGHT_LINK: NAMEPTR; 00000800 * 5 
1: | end; 00000900 R 
bits | 00001000 
1: |def 00001100 R 
1: | TREETOP : NAMEPTR; 00001200 * 5 
| 00000180 
1 |procedure SEARCH( 00000190 R x 
1 | const ID: STRING; 00000200 R * P 
1 | var PTR: NAMEPTR); 00000210 R * 5 
1 | EXTERNAL; 00000220 x 
00000221 
1 [procedure SEARCH; 00000222 R x 
1 |var 00000230 R 
1 LPTR = NAMEPTR; 00000240 * 5 
=s==>=S=====ERROR=> $17 
1 [begin 00000250 R 
1 1 | PTR := nil; 00000260 5 P 
1 2 | LPTR := TREETOP; 00000270 5 5 
1 1 3 | while LPTR <> nil do 00000280 R5 PR 
1 1 | begin 00000290 R 
11 1 4 | with LPTRa do 00000300 RS5R 
1111 5 | if NAME = ID then 00000310 R55R 
1111 | begin 00000320 R 
2111 6 | PTR := LPTR 00000330 5 5 
2111 7 | return 00000340 R 
=S=SS======ERROR=> $8 
1111 | end 00000350 R 
1111 | else 00000360 R 
1121 8 | if ID < NAME then 00000370 R55R 
1121 9 | LPTR := LEFT_LINK 00000380 5 5 
1121 | else 00000390 R 
1121 10 | LPTR == RIGHT_LINK 00000400 5 5 
1 1 | end (while) 00000410 R 
lend;. 00000420 R 


NUMBER OF ERRORS DETECTED: 2 
DIAGNOSTIC MESSAGES ON PAGE(S): 


ERROR 8: SEMICOLON ";" EXPECTED 
ERROR 17: ":" EXPECTED 


PARAMETERS PASSED: DISK NOXREF LIB ¢€ MACLIB ) 


OPTIONS IN EFFECT: MARGINS(1,72), SEQ(73,80), LINECOUNT(60), CHECK, 
GOSTMT, OPTIMIZE, PXREF, SOURCE, WARNING 


COMPILE TIME: 0.43 SECONDS; COMPILE RATE: 7441 LPM 


5 


SOURCE LINES: 53; 


Figure 17. Sample source listing 
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The source listing contains informa- 
tion about the source program including 
nesting information of blocks and cross 
reference information. 


7.1.1 Page Headers 


The first line of every page contains 
the title, if one exists. The title is 
set with the “TITLE statement and may 
be reset whenever necessary. If no 
title has been specified, then the line 
will be blank. 


The second line begins with "PASCAL/VS 
RELEASE x". This line lists informa- 
tion in the following order. 


1. The PROGRAM/SEGMENT name is given 
before a colon. This name becomes 
the name of the control section 
(CSECT) in which the generated 
object code will reside. 


2. Following the colon may be the name 
of the procedure/function defi- 
nition which was being compiled 
when the page boundary occurred. 


3. The time and date of the compile. 
4. The page number. 


The third line contains column 
headings. If the source being compiled 
came from a library (i.e. %INCLUDE), 
then the last line of the heading iden- 
tifies the library and member. 


7.1.2 Nasting Information 


The left margin contains nesting infor- 
mation about the program. The depth of 
nesting is represented by a number. 
The heading over this margin is: 


BPCI STMT 


B - indicates the depth of 'B'EGIN 
block nesting. 

P - indicates the depth of 'P'rocedure 
nesting. 

Cc = indicates the nesting of 


"Ctonditional statements. Conditional 


statements are if and Gase. 


I - indicates the nesting of 
'I'terative statements. Iterative 
statements are for, repeat and while. 


STMT is the heading of a column that 
numbers the executable statements of 
each routine. If the source line orgi- 
nated from an INCLUDE file, the include 


38 Pascal/VS Programmer's Guide 


number and a colon (':') preceae the 
statement number. 


7.1.3 Statement Numberin 


Pascal/VS numbers the statements of a 
routine. These numbers are referenced 
when a orun time error occurs (see 
"Reading a Pascal/VS Trace Back" on 
page 59) and when break points are spe- 
cified in the interactive debugger (see 
"Pascal/VS Interactive Debugger" on 
page 65). 


All non-empty statements are numbered 
except the repeat statement. However, 
the until portion of a repeat statement 
is numbered. 


A hegin/end statement is not numbered 
because it serves only as a bracket for 
a sequence of statements and has no 
executable code associated with it. 


7.1.4 Page Cross Reference Field 


If the PXREF compiler option is active, 
the right margin of the listing con- 
tains a cross reference field. This 
field contains an indicator for each 
identifier that appears in the associ- 
ated line. The indicators have the 
following meanings: 


® A number indicates a page number on 
which the corresponding identifier 
was declared. 


® A '®" indicates that the correspon- 
ding identifier is being declared. 


® A 'P® indicates that the correspon- 
ding identifier is predefined. 


° A 'R' indicates that the correspon- 
ding identifier is a reserved key 
word. 

e A '?* jndicates that the correspon-~ 


ding identifier is either unde- 
clared, or will be declared further 
on in the program. This latter 
occurrence arises often in pointer 
type definitions. 


7.1.5 Error Summa 


Toward the end of the listing is the 
error summary. It contains the diag- 
nostic messages corresponding to the 
compilation errors detected in the pro- 
gram. 


c 


IN name 


If the identifier is a record 
field, then this attribute speci- 
fies the name of the record in 
which the identifier was declared; 
otherwise, it specifies the name of 
the routine in which the identifier 
Was declared. 


CLASS = class 


This attribute gives the class of 
the identifier: 


CONSTANT declared constant 


CONST PARAMETER 
pass-by-const parame- 


ter 
DEF VAR external def variable 
ENTRY FUNCTION 
function routine 
declared as an ENTRY 
point 
ENTRY PROCEDURE 
procedure routine 
declared as an ENTRY 
point 


EXTERNAL FUNCTION 
external function rou- 
tine 


EXTERNAL PROCEDURE 
external procedure 
routine 


FIELD record field 


FORMAL FUNCTION 
function passed as a 
parameter 


FORMAL PROCEDURE 
procedure passed as a 
parameter 


FORTRAN FUNCTION 
external FORTRAN func- 
tion 


FORTRAN SUBROUTINE 
external FORTRAN sub- 
routine 


FUNCTION a user-defined or 
standard function 


LABEL statement label 
LOCAL VAR automatic variable 


PROCEDURE a user-defined or 
standard procedure 


REF VAR external ref variable 
STATIC VAR) static variable 
TYPE type identifier 


VAR PARAMETER pass-by-Vvar parame- 
ter 


UNDECLARED undeclared identifier 


TYPE = type 


This attributes gives the type of 
the identifier: 


ARRAY an array type 
BOOLEAN boolean type 

CHAR character 

FILE a file type 

INTEGER fixed point numeric 
POINTER a pointer type 


REAL floating point numeric 

RECORD a record type 

SCALAR enumerated scalar or 
subrange 

SET a set type 

SPACE a space type 

STRING a string type 


OFFSET =n 


This attribute specifies the byte 
offset Cin decimal) within the 
dynamic storage area (DSA) of an 
automatic variable or parameter; 
the displacement of a record field 
within the associated record; or, 
the offset in the static area of a 
static variable. 


LENGTH =n 


This attribute specifies the byte 
length of a variable or the storage 
required for an instance of a type. 


VALUE = n 


This attribute specifies the 
ordinal value of an integer or enu- 
merated scalar constant. 
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7.3_ ASSEMBLY LISTING 


PASCAL/ZVS RELEASE 2.0 
OBJECT CODE 


UTILITY 


LOC STMT P 


5830 
5840 
5040 


D090 
3000 
D094 


8 
9 
10 
LP2 
1B33 
5030 


11 
D098 12 
*% WHI 
13) a4Lil 
14 
15 


16 


5830 
1233 
4780 


D094 


KKH 


01727781 =10718=00 PAGE 2 


SEUDO ASSEMBLY LISTING 


FHEAD; 
03,144(,13) 
04,0¢€,03) 
04,148(0,13) 


L 

L 

ST 
NIL; 
SR 03,03 

ST 03,152¢,13) 
LP1 <> NIL DO 

DS OH 

L 03,148¢,13) 
LTR 03,03 

BE a4L2 


LE 


WITH LP1-> DO 


GOOOAC 
000080 


45E0 
5030 


C860 
DOAD 


1? 
18 


0000B4 
0000B8 


5840 
5040 


3018 
DOgC 


19 
20 


OBC 
oco 


5850 
5050 


D038 
3010 


000 21 
000 22 


Q000C4% 5030 D098 23 
0000C8 
oo000cc 


0000D0 


5040 
47F0 


D094 
2016 


24 
25 
26 a4L2 
* 
* 
0000D0 
0000D4 
0000D8 


5830 
5840 
5040 


DO90 
D098 
3000 


27 
28 
29 


Figure 19. Sample assembly listing 


The compiler produces a pseudo assembly 
listing of your program if you specify 
the LIST option. The information pro- 
vided in this listing include: 


toc 
location relative to the beginning 
of the module in bytes 
(hexadecimal). 


OBJECT CODE 
up to 6 bytes per line of the gen- 
erated text. If the line refers to 
a symbol literal not yet 
encountered the listing (Cfor- 


or 
in 
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BAL 
ST 
BEGIN 
LP3 
L 
ST 
NEXT 
L 
ST 
LP2 
ST 
LP 
ST 


14,2144(,12) 
03,160(,13) 


NEXT; 
04,16¢,03) 
04,156(,13) 
LP2; 
05,152¢€,13) 
05,16¢,03) 

LP1; 
03,152(,13) 

LP3; 
04,148(,13) 


B 

DS 
END; 
FHEAD 


L 


ward reference) the base displace- 
ment format of the instruction is 
shown as four asterisks C'HX'), 


PSEUDO ASSEMBLY 


basic assembly language 
description of generated instruc~ 
tion. 

Annotation 
intermixed with the assembly 
instructions is the source line 


from which the instructions were 
generated. The source lines appear 
as comments in the listing. 


7.4 EXTERNAL SYMBOL DICTIONARY 


PASCAL/VS RELEASE 2.0 AMPLXREF: 


EXTERNAL 


NAME TYPE ID ADDR LENGTH 
AMPLXREF SD 
XREFEOF LD 
XREFREF LD 
aSTATIC PC 
AMPXPUT ER 
CHARPTR cM 
BOOLPTR cM 
INCLLEVE cM 
PROCP cM 
LINECOUN cM 
AMPXGET ER 
SYSPRINT cM 
AMPXWCHR ER 
OPTION CM 
TRIM ER 


000000 
0008D8 
000A80 
000000 
000000 
000000 
000000 
000000 00 
000000 00 
000000 00 
000000 
000000 
000000 
000000 
000000 


QO2ENC 
000001 
000001 
000009 


000004 
000004 
0004 
0004 
000% 


AANOADRANCORF 


000040 
000014 


Sample ESD table 


Figure 20. 


The External Symbol Dictionary (CESD) 
provides one entry for each name in the 
generated program that is an external. 
This information is required by the 
linker/loader to resolve inter-module 
linkages. The information in this ta- 
ble is: 


NANE the name of the symbol. 


TYPE the classification of the 
symbol: 
SD - Symbol Definition 
LD - Local Definition 
ER - External Reference 
CM —- Common 
PC - Private Code. 
ID is the number provided to the 


loader in order’ to relocate 
address constants correctly. 


SYMBOL 


01727780 13:07:27 


DICTIONARY 


NAME TYPE ID ADDR LENGTH 
XREFDUMP LD 
XREFINCL LD 
XREFLIST LD 
SYSXREF CM 
INTPTR cM 
REALPTR CM 
PAGENO CM 
INCLNUMB CM 
AMPXRSET ER 
AMPXNEW ER 
PAGEHEAD ER 
AMPXWL IN ER 
AMPXWTXT ER 
AMPXWINT ER 
AMPXNSTR ER 


OOOFC4 
000964 
002C40 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000001 
000001 
000001 
000040 
000004 
000004 
000002 
000001 


WWrFoN WOOO 


ADDR is the offset in the CSECT for an 
LD entry. 


LENGTH the size in bytes of the SD or 
CM entry. 


The SD classification corresponds to 
the name of the module; the LD classi- 
fications are entry routines; ER names 
are external routines; CM names corre- 
spond to def variables. The private 
code section is where static variables 
are located. 


7.5 INSTRUCTION STATISTICS 


If Pascal/VS is requested to produce an 
assembly listing, it will also summa- 
rize the usage of 370 instructions gen- 
erated by the compiler. The table is 
sorted by frequency of occurrence. 
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8.1 I/70 IMPLEMENTATION 


Pascal/VS employs OS access methods to 
implement its input/output facilities. 
Pascal/VS file variables are associ- 
ated with a data set by means of a 


DDname. The Queued Sequential Access 
Method (Q@SAM) is used for sequential 
data sets. The Basic Partitioned 


Access Method (BPAM) is used for parti- 
tioned data sets (MACLIBsS in CMS 
terminology). The Basic Direct Access 
Method (CBDAM) is used for random record 
access. 


8.2 DDNAME ASSOCIATION 


For any identifier declared as a simple 
file variable the first eight charac-— 
ters of the identifier's name serves as 
the DDname of the file. As a conse- 
quence, the first eight characters of 
all file variables declared within a 
module should be unique. You must also 
be careful not to allow one of the 
first eight characters to be an under- 
score ('_') since this is not a valid 
character to appear ina DDNAME. 


An explicit DDname may be associated 
with a file variable by means of the 
DDNAME option when the file is opened. 
(see "The Open Options” on page 56). 


DDnames should be explicitly specified 
for files which are elements of arrays, 
fields of records, or pointer 
qualified. If the DDname is not 
explicitly specified for such files, a 
DDname of the form "PASCALnn™ will be 
assigned to the file, where "nn" is a 
two digit integer. 


8.3 DATA SET DCB ATTRIBUTES 


At runtime, associated with every 
Pascal/VS file variable is a Data Con- 
trol Block (DCB) which contains infor- 
mation describing specific attributes 
of the associated data set. Among 
these attributes are 


° the logical record length (LRECL); 
° the physical block size (BLKSIZE); 
° the record format CRECFM). 

Pascal/VS supports all of the record 
formats that are supported by QSAM, 


such as,» F, V, U, FB, VB, FBA, VBM, 
etc. 


8.0 USING INPUT/OUTPUT FACILITIES 


A Pascal/VS program will process a file 
that contains ANSI or machine control 
characters at the beginning of each 
logical record (Cin which case _ the 
record format would be specified as 
RECFM=...A or RECFM=...M). Any read 
operation on such files will begin at 
the second character position of each 
record. Each logical record written to 
such files will be prefixed with the 
appropriate control character. Thus, 
the first character position of each 
record is not directly accessable from 
the Pascal/VS program; however, the 
PAGE procedure may be used to insert a 
page eject. (see "The PAGE Procedure” 
on page 53) 


Newly allocated (empty) data sets, that 
is, data sets intended for output might 
not have these attributes assigned. As 
far as Pascal/VS is concerned, there 
are two ways to specify the DCB attri- 
butes for such data sets: 


® by being specified in the associ-~ 
ated DDname definition Cin CMS: the 
FILEDEF command; in TSO: the 
ALLOC/ATTR commands; in OS batch: 
the DD card); 


° by being specified when the file is 
open by means of the options 
string. (see "The Open Options” on 
page 56). 


If any of these attributes are unas- 
signed for a particular data set to 
which a Pascal/VS program will be writ- 
ing, the Pascal/VS I/0 manager will 
assign defaults according to whether 
the data set is being managed as a file 
of type "TEXT" or as a non-text file. 


For the case of text files, if neither 
LRECL, BLKSIZE, nor RECFM are 
specified, then the following defaults 
will apply: 

e LRECL=256 

° BLKSIZE=260 

° RECFM=V 

For the case of non-text files, if nei- 
ther LRECL, BLKSIZE, nor RECFM are 
specified then the following defaults 
will apply. 

® LRECL="length of file component" 

° BLKSIZE=LRECL 

e RECFM=F 

If some of the attributes are specified 


and some are not then defaults will be 
applied using the following criteria: 
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° RECFM of V is preferred over F for 
text files. 


° RECFM of F is preferred over V for 
non-text files. 


° If RECFM is F then the BLKSIZE is 
to be equal to the LRECL or to bea 
multiple thereof. 


° If RECFM is V then the BLKSIZE is 
to be at least four bytes greater 
than the LRECL. 


8.4 TEXT FILES 


Text files contain character’ data 
grouped into logical records. From a 
Pascal/VS language viewpoint, the log- 
ical records are lines of characters. 
Pascal/VS supports both fixed length 
and variable length record formats for 
text files. Characters are stored in 
EBCDIC. 

The predefined type text is used to 
declare a text file variable in 
Pascal/VS. The pointer associated with 
each file variable points to positions 
within a physical I/0 buffer. 


8.5 RECORD FILES 


All non-text files in Pascal/VS are 
record files by definition. Input and 
output operations on record files are 
done on a logical record basis instead 
of on a character basis. 


The logical record length (LRECL) of a 
file must be at least large enough to 
contain the file's base component; oth- 
erwise, an execution time error will 
occur when the file is opened. For 
example, a file variable declared as 
‘file of INTEGER’ will require the 
associated physical file to have a log- 
ical record length of at least 4 bytes. 


If a file has fixed length records 
CRECFM=F) and the logical record length 
is larger than necessary to contain the 
files component type, then the extra 
space in each logical record is wasted. 


8.6 OPENING A FILE FOR INPUT - RESET 


To explicitly open a file for input, 
the procedure RESET is used. A call to 
RESET has the forms: 
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RESETC fF) 
or 
RESETCf,options) 


where "f" is a file variable and 
"options" is a string which contains 
the open options (see "The Open 
Options" on page 56). The "options" 
parameter may be omitted. 


Normally, RESET allocates a buffer, 
reads in the first logical record of 
the file into the buffer, and positions 
the file pointer at the beginning of 
the buffer. Therefore, given a text 
file F, the execution of the statement 
"RESETCF)™ would imply that "Fa" would 
reference the first character of the 
file. 


If a RESET operation is performed on an 
open file, the file is closed and then 
reopened. 


program EXAMPLE; 

var 
SYSIN TEXT; 
Cc : CHAR; 

begin 
CXopen SYSIN for input ¥*) 
RESETCSYSIN); 
(¥get first character of file) 
C := SYSINA; 

end. 


RESET on a text 


Using 
file 


Figure 21. 


8.7 OPENING A FILE FOR INTERACTIVE 
INPUT 


Since RESET performs an implicit read 
operation to fill a file buffer, it is 
not well suited for files intended to 
be associated with interactive input. 
For example, if the file being opened 
15 assigned to your terminal, you will 
be prompted for data when the file is 
opened. This may not be preferable if 
your program i15 suppose to write out 
prompting messages prior to reading. 


To alleviate this problem, a file may 
be opened for interactive input by 
specifying "INTERACTIVE" in the 
options string of RESET. No initial 
read operation is performed on files 
opened in this manner. The file point-— 
er has the value nil until the the 
first file operation is performed 
(namely GET or READ). The end-of-Lline 
condition (see "End of Line Condition" 
on page 53) is initially set to TRUE. 


program EXAMPLE; 
var 


SYSIN TEXT; 


DATA > STRINGC80); 

begin 
(Xopen SYSIN for interactive *) 
C¥input ¥) 
RESETCSYSIN, ‘INTERACTIVE'); 


(¥prompt for response 
(¥read in response 
WRITELNC® ENTER DATA: ')3 
READLNCSYSIN, DATA); 
end. 
Figure 22. Opening a file 
interactive input 


8.8 OPENING A FILE FOR OUTPUT - 
REWRITE 


The procedure REWRITE is used to opena 
file for output. A call to the proce- 
dure has the forms: 


REWRITEC £) 
or 
RENRITEC f,0ptions) 


where "f" is ae file variable and 
“options” is a string which contains 
the open options (see "The Open 
Options” on page 56). The "options" 
parameter may be omitted. 


REWRITE positions the file pointer at 
the beginning of an empty buffer. If 
the file is already open it is closed 
prior to being reopened. 


program EXAMPLE; 
var 
SYSFRINT 
begin 
REWRITECSYSPRINT); 
WRITELNCSYSPRINT, 'MESSAGE'); 
end. 


TEXT; 


Figure 23. Opening a text file 


with REWRITE 


program EXAMPLE; 
var 
OUTFILE file of INTEGER; 
I > INTEGER; 
begin 
REWRITECOUTFILE, 
"BLKSIZE=1600,LRECL=4,RECFM=F' ); 


DUTFILEa := I; 
PUT COUTFILE); 
end. 


Figure 24. Opening a record file 


with REWRITE 


8.9 TERMINAL INPUT/OUT PUT 


Two procedures are provided for doing 
input and output directly to your ter- 
minal without going through the normal 
DDname interface. Calls to these pro- 
cedures have the forms: 


TERMINC fF) or TERMINC f,options?) 
TERMOUTCf) or TERMOUT(C f,0ptions) 


where "f" is a text file variable and 
"options™ is a string which contains 
the open options (see "The Open 
Options” on page 56). The "options" 
Parameter may be omitted. 


The TERMIN procedure opens a text file 
for interactive input from your termi- 
nal. Likewise, the TERMOUT procedure 
opens a text file for terminal output. 


Note: The TERMIN procedure opens the 
file with the INTERACTIVE attribute as 
was described in “"Qpening a File for 
Interactive Input" on page 46. 


program EXAMPLE; 

var 
TTYIN, TTYOUT: text; 
I > INTEGER; 

begin 
TERMINCTTYIN); TERMOUTCTTYOUT); 
WRITELNCTTYOUT," ENTER DATA: '); 
READLNCTTYIN,I); 


end. 


input/output 


Terminal 
example. 


Figure 25. 


8.10 OPENING A FILE FOR UPDATE 


The UPDATE procedure is provided for 
opening a record file for updating. In 
this mode, records may be read, modi- 
fied, and then replaced. A call to the 
procedure has the forms: 


UPDATEC f) 
or 
UPDATECf,options) 


where "f" is a record file variable and 
"options" is a string which contains 
the open options (see "The Open 
Options" on page 56). The "options" 
parameter may be omitted. 


Upon calling UPDATE, a file buffer is 
allocated and the first record of the 
file is read into it. If a subsequent 
PUT operation is performed on the file, 
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the contents of the buffer will be 
stored back into the file at the 
location from which it was read. 


Each GET operation reads in the next 
subsequent record of the file. <A PUT 
operation will write the record back 
from where the last GET operation 
obtained it. If the next operation is 
another PUT, the next subsequent record 
will be overwritten. 


program EXAMPLE; 
var 
F : file of 
record 
NAME: STRINGC30); 
AGE =: 0..99; 
. end; 
begin 
UPDATECF); 
(Xupdate each record *) 
(¥% by incrementing age *) 
while not EOFCF) do 
begin 
Fa.AGE := Fa.AGE + 13 
PUTCF); 
GETCF) 
end; 
end. 


Figure 26. Updating a record file 


8.11 PROCEDURE GET 


The GET procedure is the means by which 
a basic read operation is performed on 
a file. A call to the procedure has 
the form: 


GETC Ff) 


where "f"™ is a file variable. 


8.11.1 GET operation on text files 


When applied to an input text file, GET 
causes the file pointer to be incre- 
mented by one character position. If 
the file pointer is positioned at the 
last position of a logical record, the 
GET operation will cause the end-of- 
line condition to become true (see "End 
of Line Condition™ on page 53) and the 
file pointer will be positioned to a 
blank. If, prior to the call, the 
end-of-line condition is true, then the 
file pointer will be positioned to the 
beginning of the next logical record. 


If, prior to the call to GET, the file 
pointer is positioned to the end of the 
last logical record of a text file Cin 
which case the end-of-line condition 
will be true) then the end-of-file 
condition will become true. (See "End 
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of File Condition - text files" on page 
54). 


If GET is attempted on a text file that 
has not been opened, it will be implic- 
itly opened for input (as if RESET had 
been called). 


program EXAMPLE; 

var 
INFILE 
C1,C2 


text; 

CHAR; 

begin 
(¥get first char of fileXx) 
RESETCINFILE); 
Cl := INFILEA; 
(¥get second char of fileXx) 
GETCINFILE); 
C2 := INFILEA; 


end. 


Figure 27. Using GET on a text 


file 


8.11.2 GET operation on record files 


Each call to GET for the case of record 
files reads the next sequential logical 
record into the buffer referenced by 
the file pointer. The end-of-file 
condition will become true if there are 
no more records within the file, in 
which case, the file pointer will be 
set to nil. 


A record file must be opened for input 
or update prior to executing a GET 
operation, otherwise, a runtime diag- 
nostic will be generated. 


program EXAMPLE; 
var 
F: file of 
record 
NAME = STRINGC25); 
AGE : 0..99; 
WEIGHT: REAL; 
SEX =: CMALE, FEMALE) 
end; 
begin 
RESETCF); 
While not EOFCF) do 


begin 
WRITEC' Name : ', 
Fa.NAME); 
WRITEC* Age : ', 
Fa.AGE:3)3 


WRITELN; 
GETCF) 
end 
end. 
Figure 28. Using GET 
files 


8.12 PUT PROCEDURE 


The PUT procedure is the means by which 
a basic write operation is performed on 
a file. <A call to the procedure has 
the form: 


PUTC( Ff) 
where "f" is a file variable. 


The file must be opened for output or 
update prior to calling PUT®; 
otherwise, a runtime diagnostic will 
occur. 


8.12.1 PUT Operation on Text Files 


The PUT procedure, when applied to a 
text file opened for output, causes the 
file pointer to be incremented by one 
character position. If, prior to the 
call, the number of characters in the 
current logical record is equal to the 
file's logical record length (LRECL), 
the file pointer will be positioned 
within the associated buffer to begin a 
new logical record. 


When the file buffer is filled to 
capacity, the buffer is written to the 
associated physical file. The file 
pointer is then positioned to the 
beginning of the buffer so that it may 
be refilled on subsequent calls to PUT. 
The capacity of the buffer is equal to 
the file's physical block size 
(BLKSIZE). 


To terminate a logical record before it 
is full requires a call to WRITELN (see 
"The WRITELN Procedure” on page 53). 


program EXAMPLE; 

var 
OUTFILE 
Cc 


text; 

CHAR; 

begin 
REWRITECOUTFILE); 
OUTFILEa := ¢; 
(XWrite out value of Cx) 
PUTCOUTFILE); 


end. 


Figure 29. Using PUT on 


file 


a text 


data to be written. If the file 


8.12.2 PUT Operation on Record Files 


The PUT procedure causes the _ file 
record that was assigned to the output 
buffer via the file pointer to be 
effectively written to the associated 
physical file. Each call to PUT for 
the case of record files produces one 
logical record. 


program EXAMPLE; 
var 
F : file of 
record 
NAME : STRING(25); 
AGE : 0..99; 
WEIGHT: REAL; 
SEX =: (MALE,FEMALE) 
end; 


egin 

REWRITECF); 
Fa .NAME 3 
Fa.AGE t= 36; 
Fa.WEIGHT == 160.0; 


"John F. Doe’; 


Fa.SEX 
PUTCF); 


MALE; 


end. 


Figure 30. Using PUT on record 


files 


8.13 TEXT FILE PROCESSING 


8.13.1 Text File READ 


The READ procedure fetches data from a 
text file beginning at the current 
position of the file pointer. A call 
to the procedure has the forms: 
READCF,v) 
or 
READCfF,vin) 
where "f" is a file variable and "v" is 
a variable which must be of one of the 
following types: 
CHAR Cor a subrange thereof) 
INTEGER Cor a subrange thereof) 
packed arrayl] of CHAR 


REAL Cor SHORTREAL ) 


Prior to a PUT operation, the associated output buffer must contain the 
is not open when the PUT operation is 


attempted, then no output buffer exists. (The file pointer will have the 


value nil.) 
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STRING 


"nh" is an optional field length Can 
integer expression). The file variable 
"f" may be omitted, in which case, the 
file INPUT is assumed. 


A call of the form 
READ( f,v1l,v2,...vn) 
is executed as 


begin 
READCf,v1);3 
READ( f,v2); 


READ( f,vn); 
end 


If READ is called for a closed file, 
the file is opened for input by an 
implicit call to RESET. 


Upon executing READ, if the file point- 
er is not yet set, an initial GET oper- 
ation is performed. This case occurs 
when a file is opened INTERACTIVE]y. 
(see "Opening a File for Interactive 
Input" on page 46.) 


When reading INTEGER or REAL data via 
the READ procedure, and no field length 
1s specified, all blanks preceding the 
data are skipped. In addition, logical 
record boundaries will be skipped. If 
the end-of-file condition should occur 
before a nonblank character is dete- 
ected, an error diagnostic will be 
produced. 


Integer data begins with an optional 
sign ('+' or '-') followed by all dig- 
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its up to, but not including, the first 
non-digit or up to the end of the log- 
ical record. 


For example, given an input file posi- 
tioned at the beginning of a logical 
record with the following contents: 


95123SAN JOSE,CA 


an integer read operation would bring 
in the value 95123. After the read, 
the file pointer would be positioned to 
the first 'S' character. 


Real data begins with an optional sign 
C'+" or '-"') and includes all of the 
following nonblank characters until 
one is detected that does not conform 
to the syntax of a real number. 


For example, given an input file posi- 
tioned at the beginning of a logical 
record with the following contents: 


3.14159/72 


a floating point read operation would 
bring in the floating point value 
3.14159. After the read, the file 
pointer would be positioned to the '/' 
character. 


If a field length value is specified, 
as many characters as are indicated by 
the value will be consumed by the read 


operation. The variable will be 
assigned from the beginning of the 
field. If the field is not exhausted 


after the variable has been assigned 
the data, the rest of the field will be 
skipped. 


program EXAMPLE; 

var 
ZIP > 0..99999; 
MAN > 0..999999; 
BALANCE: REAL; 

begin 
READCZIP:5,MAN:6,BALANCE: 9); 
WRITELNC'ZIP = ',Z1IP); 
WRITELNC'MAN = ',MAN); 
WRITELNC’ BALANCE = *',BALANCE:8:2) 

end. 


Given the following input stream 
from file INPUT: 


951239999991000.00JUNK 


This program produces the following 
on file OUTPUT: 


ZIP = 
MAN = 
BALANCE = 


95123 
999999 
1000.00 


Immediately after the READ state- 
ment was executed, file INPUT was 
positioned to the 'N" character. 


Figure 31. Using READ with length 


qualifiers. 


When reading data into variables 
declared as packed array of CHAR or 
STRING, data is read until one of the 
following three conditions occurs: 


° the variable is filled to its 
declared capacity; 

) an end-of-line condition is detec- 
ted; 


° the field length Cif specified) is 
exhausted. 


The length of a STRING variable will be 
set to the number of characters read. 
A variable declared as packed array of 
CHAR will be padded if necessary with 
blanks up to its declared length. 


program DOREAD; 
var 
INFILE text; 
R > arrayll..16] of 
record 
NAME: STRING(25); 
AGE : 0..99; 
WEIGHT: REAL 
end; 
I > 1..10;5 
begin 
RESETCINFILE); 
for I := 1 to 10 do 
with REI] do 
begin 
READCINFILE,NAME, AGE); 
READCINFILE,WEIGHT); 
READLNCINFILE) 
end; 
end. 
Figure 32. Using READ on text 
files. 


8.13.2 The READLN Procedure 


A call to READLN has the same form asa 
call to READ and performs the same 
function except that after the data has 
been read, all remaining characters 
within the logical record are skipped. 
The procedure is applicable to text 
files only. 


Normally, READLN causes the next log- 
ical record to be read (Cunless the 
end-of-file is reached) and the file 
pointer is positioned to the beginning 
of the buffer that contains the record. 


In the case of text files opened with 
the INTERACTIVE attribute, the file 
pointer is positioned after the end of 
the logical record and the end-of-line 
condition is set to TRUE. 


If the end-of-line condition is true 
for an interactive file prior to a call 
to READLN and the condition was not the 
result of a previous call to READLN, 
then the call is ignored. Two calls to 
READLN in succession will cause the 
following logical record to be skipped 
in its entirety. 


If READLN is called for a closed file, 


the file is opened implicitly for input 
as though RESET had been called. 
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program COPY; 
var 
INFILE, 


OUTFILE text; 


BUF > STRINGC100); 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
While not EOQFCINFILE) do 
begin 


READCINFILE, BUF); 
WRITELNCOUTFILE, BUF); 
(Xignore characters after 
column 100 in each line *) 
READLNCINFILE) 
end 
end. 


Using the 
READLN 


Figure 33. procedure 


8.13.3 Text File WRITE 


The WRITE procedure writes data to a 
text file beginning at the current 
position of the file pointer. A call 
to the procedure has the forms: 
WRITECF,e) 
or 
WRITECF,e:n) 
or 
WRITECfF,e2:niin2) 
where "f" is a file variable and "e" is 
an expression which must be of one of 
the following types: 
BOOLEAN 
CHAR Cor a subrange thereof) 
INTEGER Cor a subrange thereof? 
packed arrayl] of CHAR 
REAL Cor SHORTREAL) 
STRING 
"Ht, "n1l", and "n2" are optional field 
lengths Cinteger expressions). The 
file variable "f™" may be omitted, in 
which case, the file OUTPUT is assumed. 
A call of the form 
WRITECf,e1,e2,...en) 
1s executed as 
begin 
WRITECF,e1);3 
WRITEC f,e2)3 


WRITECf,en); 
end 
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If WRITE is called for a closed file, 
the file is opened implicitly for out- 
put. 


If during a call to WRITE, the length 
of the logical record being produced 
becomes equal to the logical record 
length (CLRECL) of the text file, the 
record is completed and the remaining 
data is placed on a new record. 


If a field length is specified for an 
expression to be written and its value 
is positive, the data will appear right 
justified in the output field. If the 
specified length is negative, the data 
Will appear left justified. (The field 
width will be the absolute value of the 
specified length. ) 


String data that is being written with 
a specified field length will be trun- 
cated on the right if the field length 
is too small. 


If no field length is specified, a 
default will be used that depends on 
the data's type: 


data type default field length 
BOOLEAN 10 
CHAR 1 
INTEGER 12 
REAL 20 
SHORTREAL 20 


In addition, expressions of type STRING 
have a default field length equal to 
their current length. Fixed length 
strings (packed array of CHAR) have a 
default equal to their declared length. 


program DOWRITE; 
var 
OUTFILE text; 
R > arrayll..10] of 
record 
NAME: STRING(25); 
AGE : 0..99; 
WEIGHT: REAL 
end; 
I * 1..10; 
begin 
REWRITECOUTFILE); 


for I := 1 to 10 do 
With R[I] do 
begin 
WRITECOUTFILE,NAME:-30, 
AGE:3,° ")3 
WRITECOUTFILE,WEIGHT:3:0); 
WRITELNCOUTFILE) 
end; 
end. 
Using WRITE on text 
files 


Figure 34. 


8.13.4 The HRITELN Procedure 


The WRITELN procedure is applicable 
only to text files intended for output. 
It causes the current logical record 
being produced to be completed so that 
the next output operation will begin a 
new logical record. 


If the record format of the file is 
fixed (CRECFM=F), BIRITELN will fill the 
remainder of the current record with 
blanks. For variable length records 
CRECFM=V), the record length is set to 
the number of bytes currently occupied 
by the record. 


If WRITELN is called for a closed file, 
the file is opened implicitly for out- 
put. 


program DOUBLESPACE; 
var 
FILEIN, 
FILEQUT text; 
BUF : STRING; 
begin 
REWRITECFILEOUT); 
RESETCFILEIN); 
While not EOFCFILEIN) do 


begin 
READLNCFILEIN, BUF); 
WRITELNCFILEDUT, BUF); 
(*insert blank line *) 
WRITELNCFILEDUT) 
end; 
end. 


Using the WRITELN 


procedure 


Figure 35. 


8.13.5 The PAGE Procedure 


The PAGE procedure causes a page eject 
to occur on a text output file which is 
to be associated with a printer (or to 
a disk file which will eventually be 
printed). A call] to the procedure has 
the following form: 


PAGEC fF) 


where "*" is a variable of type TEXT 
which has been opened for output. 


If a logical record is partially 
filled, an implicit WRITELN will be 
performed prior to the page eject. 

For this procedure to produce any 
affect, the first character of each 
logical record of the file must be 
reserved for carriage control. This is 
done by specifying either A CANSI con- 
trol) or M (machine control) in the 
RECFM attribute for the file. 


If the record format specifies ANSI 
control, then the character '1l' will be 
inserted in the first character posi-~ 
tion of the record. For machine con- 
trol, a single record is written that 
contains the hexadecimal value of '8B! 
in its first character position. 


program EXAMPLE; 

var 
PRINT: 

begin 


text; 


(¥start new page) 


PAGE(PRINT) 5 
end. 


Figure 36. Using the 


procedure 


8.13.6 


End of Line Condition 


The end-of-line condition occurs on a 
text file opened for input when the 
file pointer is positioned after the 
end of a logical record. To test for 
this condition, the EOLN function is 
used. 


The end-of-line condition becomes true 
when GET is executed for a file posi- 
tioned at the last character of a log- 
ical record, or if a call to READ 
consumes all of the characters of the 
current logical record. 


The file pointer will always point toa 
blank character Cin EBCDIC, hexadeci- 
mal $0) when the end-of-line condition 
occurs. 


The EOLN function is only applicable to 
text files. 


program EXAMPLE; 
var 
SYSIN: text; 
CNT =: 0..32767; 
begin 
(* compute length of first 
logical record of SYSIN *) 
RESETCSYSIN); 
CNT := 0; 


Hhile not EOLNCSYSIN) do 
begin 
CNT == CNT + 1; 
GETCSYSIN); 
end; 
WRITELNCCNT) 
end. 


Using the EOLN func- 


tion 


Figure 37. 
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8.13.7 End of File Condition - text 
files 


The end-of-file condition becomes true 
for a text file when one of the foll- 
owing occurs: 


° RESET is called and the file is 
empty. 


° The file is open for output. 


° GET is called when the file pointer 
is positioned at the end of the 
last logical record of the file (in 
which case the end-of-line cond- 
ition is true). 


° READ is called and all characters 
of the last logical record were 
consumed. 


When the end-of-~file condition occurs, 
the file pointer has the value nil. 


To test for this condition, the EOF 
function is used. 


Any calls to GET or READ for a file for 
which the end-of-file condition is true 
Will be ignored. 


program EXAMPLE; 
var 
SYSIN: TEXT; 
CNT : 0..32767; 
begin 
(% compute number of logical 
records in file SYSIN *) 
RESETCSYSIN); 
CNT := 0; 


while not EOFCSYSIN) do 
begin 
CNT := CNT + 1; 
READLNCSYSIN) 
end; 
WRITELNCCNT) 
end. 


Using the EOF function 
on a text file 


Figure 38. 


8.14 RECORD FILE PROCESSING 


8.14.1 Record File READ 


As documented in the language manual, 
the statement 


READCF,¥) 


is equivalent to 
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begin 
Vo:= Fa; 
GETCF) 
end 


where F and V are declared as follows: 


var F: file of t; 
Vi tt; 


If file F is not open when READ is 
called, it will be opened implicitly 
for input. 


8.14.2 Record File WRITE 


As documented in the language manual, 
the statement 


WRITECF,V) 
15 equivalent to 


begin 
Fa := V; 
PUTCF) 
end 


where F and V are declared as follows: 


var F: file of t; 
2 ot; 


If file F is not open when WRITE is 
called, it will be opened implicitly 
for output. 


program EXAMPLE; 
type 
REC = record 
NAME =: STRING(25);3 
AGE : 0..99; 
SEX =: (CMALE,FEMALE) 
end; 
var 
INFILE, 
OUTFILE: 
file of REC; 
BUFFER : REC; 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
while not EOFCINFILE) do 
begin 
READCINFILE, BUFFER); 
WRITECOUTFILE, BUFFER) 
end 
end. 


Using READ and WRITE 
on record files. 


Figure 39. 


8.14.3 End of File Condition - Record 


Files 


The end-of-file condition becomes true 


for a record file when: 
° RESET is called for an empty file. 
° The file is opened for output. 


° GET is executed for a file in which 
no more records remain. 


When the end-of-file condition occurs, 
the file pointer has the value nil. To 
test for this condition, the EOF func- 
tion is used. 


Any calls to GET or READ for a file for 
which the end-of-file condition is true 
will produce an error diagnostic. 


8.15 CLOSING A FILE 


The procedure CLOSE is provided to 
close a file explicitly. A call to 
this procedure has the form 


CLOSEC fF) 
where "f" 15 a file variable. 


All open files which are declared in 
the body of a routine as simple vari- 
ables are closed implicitly when the 
routine returns to its invoker. All 
files which are open when the program 
terminates, will be closed automati- 
cally by the Pascal/VS runtime 
environment. 


If the variable associated with an open 
file is destroyed prior to program ter- 
mination, the results could be disas- 
trous when Pascal/VS attempts to close 
the file. This problem could occur in 
the following cases: 


e the file variable is an element of 
an array. 


° the file variable is a field of a 


record. 

e the file variable is pointer quali- 
fied Cexists on the heap). 

e a routine which contains local file 
variables is exited with a goto 
statement. 


In these cases, the fjle variable must 
be closed explicitly with a call to 
CLOSE. 


program EXAMPLE; 

type 

var 
FSTK =: arrayll..81] of 

TEXT; 

DDNAME: STRING(8); 
I > 1..83 

begin 


RESET(FSTKLIJ, *DDNAME=* | | DDNAME) ; 


for I := 1 to 8 do 
CLOSECFSTKII1]); 
end. 


Figure 40. Example of using CLOSE 


8.16 RELATIVE RECORD ACCESS 


Pascal/VS permits records of a record 
file to be accessed in a random order 
by means of the SEEK procedure. A call 
to SEEK has the form 


SEEKCf,n) 


where "f" 35 a record file that was 
previously opened with RESET, REWRITE, 
or UPDATE; "n" is a positive integer 
expression which corresponds to a 
record number. 


A subsequent call to GET or PUT will 
operate on the "nth" record of the 
file. Each call to GET or PUT there- 
after will operate on subsequent 
records. SEEK does not perform an I/0 
operation. 


At the first call to SEEK, the file is 
implicitly closed and reopened for ran- 
dom access using the Basic Direct 
Access Method (BDAM). The file that is 
to be accessed in this manner must have 
unblocked, fixed-length records; that 
is, the RECFM attribute for the file 
must be "FY, 


Under TSO and OS Batch, the first SEEK 
operation ona file opened with REWRITE 
will cause dummy records to be written 
to the associated data set until the 
first extent is filled. The record 
number specified must not exceed the 
size of the first extent. 
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program EXAMPLE; 
type 
REC = record 
NAME : STRINGC25); 
AGE =: 0..993 
SEX =: (MALE,FEMALE) 
end; 
IDX = record 
RECNO: 0..MAXINT; 
end 
var . 
RECFILE: file of REC; 
IDXFILE: file of IDX; 
begin 
RESETCIDXFILE); 
RESETCRECFILE); 
(¥write out names in order of 
index *) 
While .not EOFCIDXFILE) do 
begin 
SEEKCRECFILE, IDXFILEa.RECNO); 
GETCRECFILE); 
WRITELNCOUTPUT,RECFILE®.NAME) 
GETCIDXFILE); 
end 
end. 


Figure 41. Example of using SEEK 


to access records 


randomly 


8.17 PARTITIONED DATA SETS 


8.17.1 Opening a Partitioned Data Set 


To open a partitioned data set (PDS)7, 
the procedures PDSIN and PDSOUT are 
provided. Calls to these procedures 
are of the form 


PDSIN(C f,options) 
PDSOUTC f,options) 


where "F"™ jis a efile variable and 
"options" is a string expression which 
contains open options (see "The Open 
Options"). Unlike the other procedures 
which open files, the options string is 
required and must specify a member name 
(MEMBER=name). 


PDSIN opens the specified member in the 
PDS for input. As in the case of 
RESET, the file pointer is made to 
point to a buffer containing the first 
logical record of the file. 


7 


PDSOUT creates a member in the PDS and 
opens it for output. If the member 
already exists, it will be erased and 
then recreated. 


See Figure 43 on page 58 for an example 
of opening a partitioned data set. 


8.17.2 PDS Access in a CMS Environment 


In a CMS” environment, members” of 
MACLIBs may be accessed as partitioned 
data sets via the 0S simulation facili- 
ties. A DDname is assigned to the 
MACLIB file with the FILEDEF command; 
the file name of the maclib must then 
appear ina "GLOBAL MACLIB" command. 


For example, in order to access the 
file "MYLIB MACLIB A" as a partitioned 
data set with ddname “LIB" from a 
Pascal/VS program, the following com- 
mands would be executed prior to exe- 
cuting the program. 


FILEDEF LIB DISK MYLIB MACLIB A 
GLOBAL MACLIB MYLIB 


Two or more MACLIBs may be accessed as 
though they were concatenated by using 
the CONCAT option of the FILEDEF com- 
mand. For example, in order to access 
the MACLIBs "M1", "M2", and "M3" as a 
concatenated partitioned data set with 
ddname "LIB", the following commands 
would be executed srior to executing 
the Pascal/VS program. 


FILEDEF LIB DISK Mi MACLIB A 
FILEDEF LIB DISK M2 MACLIB A C(CCONCAT 
FILEDEF LIB DISK M3 MACLIB A CCONCAT 


GLOBAL MACLIB Mi M2 M3 


8.18 THE OPEN OPTIONS 


All Pascal/VS, procedures which open 
files are defined with an = optional 


string parameter which contains 
options pertaining to the file being 
opened. These options determine how 


the file is to be opened and what 
attributes it is to have. 


The data in the string parameter has 
the syntax shown in the following fig- 
ure: 


All operations that may be applied to "partition data sets" under OS may 


be applied to MACLIB's and TXTLIB's under CMS. 
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option-string: 


Te tert ion” 


s 


DDNAME = name 
BLKSIZE n 
LRECL = 

RECFM = c 
INTERACTIVE 


MEMBER=name 
NAME=fn. ft. fm 


Figure 42. Syntax of open options 


Not all of these options apply to all 
open. procedures. If the option is 
specified for a procedure that is not 
applicable, the option will be ignored. 


The following is a description of each 
option and the context in which it 
applies. 


DDNAME=name 

This attribute signifies that the 
physical file to be associated with 
the file variable has the DDname 
indicated by "name", This new 
DDname will remain associated with 
the file variable even if the file 
is closed and then re-opened. It 
can only be changed by another call 
to a file open routine with the 
DDNAME attribute specified. 


If this option is not specified, 
then the DDname to be associated 
with the file is derived according 
to the following rules: 


° If the file variable is a sim- 
ple variable then the default 
DDname will be the name of the 
variable itself, truncated to 
8 characters. 


° If the file variable is an ele- 
ment of an array, a field of a 
record, or is pointer quali- 
fied, then a DDname will be 
generated. of the following 
form: PASCALnn, where "nn" is a 
two digit integer. 


The BDNAME option is applicable to 
the following procedures: 


RESET, REWRITE, UPDATE, PDSIN, and 
PDSOUT. 


BLKSIZE=n 


This attribute is used to specify a 
physical block size to be associ- 
ated with an output file. This 
value Cindicated by "nN") will over- 
ride a BLKSIZE specification on the 
DDname definition. 


This option is applicable to the 
procedure REWRITE only. 


LRECL=n 


This attribute is used to specify a 
logical record length to be associ- 
ated with an output file. This 
value (indicated by "n") will over- 
ride a LRECL specification on the 
DDname definition. 


This attribute may also be used in 
the TERMIN and TERMOUT procedures 
to specify the length of the I70 
buffer. (This will determine the 
maximum length of the line to be 
read from, or written to, your ter- 
minal.) 


This option is applicable to the 
procedures REWRITE, TERMIN, and 
TERMOUT. 


RECFM=c 


This attribute is used to specify a 
record format to be associated with 
an output file. This specification 
Cindicated by "e") will override a 
RECFM specification on the DDname 
definition. 


Pascal/VS supports all record for- 
mats that Q@SAM supports: 


U CT] {A 
M 


V | BT 
BST 
D CBI] CA] 


For an explanation of each of these 
record formats, consult the publi- 
cation OS/VS2 MVS Data Management 
Services Guide Corder number 
GC26-3875). 


The RECFM specification applies to 
procedure REWRITE. 


INTERACTIVE 


This attribute indicates that the 
file is to be opened for input as 
an interactive file. See "Opening 
a File for Interactive Input on 
page 46 for a description of inter- 
active files. 
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This option applies to the proce- 
dures RESET and PDSIN. (This 
attribute is implied for TERMIN. ) 


MEMBER=nam2 
This attribute specifies a member 
name of a partitioned data _ set 
(PDS). The member to be accessed 
Is indicated by “name”. 


The MEMBER specification is 
required for the procedures PDSIN 
and PDSOUT (see "Partitioned Data 
Sets" on page 56). 


NAME=fn. ft. fm 


program EXAMPLE; 
var 

PDS > TEXT; 

MEMBER : STRINGC8); 

BUF : packed arrayl[1..801 of CHAR; 
beqin 


This attribute specifies the name 
of a CMS file which is to associ- 
ated with the file variable. This 
option has no affect if the program 
1s not running under CMS. 


"En", "Ft", "fm" are the file name, 
file type and file mode, respec- 
tively, of the CMS file. Each must 
be separated by a period ('."'). A 
file mode of '*' is permitted. 


The NAME specification is applica- 
ble to the following procedures: 
RESET, REWRITE, UPDATE, PDSIN, and 
PDSOUT. 


RESETCINPUT, * INTERACTIVE’); (Xopen INPUT for interactive *) 


(x 


Input. *) 


READLNCMEMBER); (¥read lst member name *) 
while not EOFCINPUT) do (Xloocp until no more members *) 
begin (¥open member for input *) 


PDSINCPDS, 'DDNAME=SYSLIB,MEMBER=" || 


MEMBER); 


While not EOFCPDS) do (*copy each line of the *) 


begin 
READLNCPDS, BUF}; (* 
WRITELNCBUF); 

end; 


member to file OUTPUT *) 


READLNCMEMBER) (¥read next member name *) 


end 
end. 


Figure 43. Using the open 
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8.19 APPENDING TO A FILE ments. The DDname of the file is 
"LOG"; the file nama is "LOG.DATA". 

Data may be appended to an existing CMS: 

file by opening it for output with a FILEDEF LOG DISK LOG DATA CDISP MOD 


call to REWRITE and specifying a dispo- 


Sition of "MOD" on the corresponding TSO: 

DDname definition. ALLOC DDN(CLOG) DSNCLOG.DATA) MOD 
The following examples illustrate how OS Batch: 

such a disposition is specified under //LOG DD DSN=ABC.LOG.DATA, DISP=MO0D 


the various operating system environ- 
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9.1 READING A PASCAL/VS TRACE BACK 


The Pascal/VS trace facility provides 
useful information while debugging 
programs. It gives you a list of all 
of the routines in the procedure chain. 


For each routine the following informa- 
tion is given. 


° The name of the routine. 


° The statement number of the last 
statement to be executed in the 
routine Ci.e. the statement number 
of the call to the next routine in 
the chain). 


° The address in storage where the 
generated code for the statement 
begins. 

° The name of the module in which the 


routine is declared. 


The trace routine may be invoked in 
four different ways. You may invoke 
trace by placing in your source program 
a call to the pre-defined routine 
called TRACE. An example is given in 
Figure 44 on page 60. In the example 
starting at the bottom we see that 
Pascal/VS called the user's main pro- 
gram in the module named HASHASEG. 
Statement 24 of the main program con- 
tains the call to READ_ID, statement 3 
of READ_ID contains the call to 
SEARCH_ID, and so on. 


A trace will be produced when a program 
error occurs. An example is given in 


9.0 RUNTIME ERROR REPORTING 


Figure 45 on page 60. There is an 
error message indicating a fixed point 
overflow. The traceback tells us the 
routine and the statement number where 
the error occurred. Looking at the 
trace we see that the error occurred at 
statement 3 in routine FACTORIAL on the 
third recursive call. 


A trace will be produced when a check- 
ing error occurs. A checking error 
occurs when code produced by the com- 
piler detects an invalid condition such 
as a subscript range error. (See 
"CHECK/NOCHECK™ on page 31 for a 
description of compiler generated 
checks. ) Figure 46 on page 60 is an 
example of a traceback that occurred 
from a checking error. The first line 
of the trace identifies the particular 
checking error that occurred. Looking 
at the trace we see that the error 
occurred at statement 4 in routine 
TRANSLATE. 


A trace will be produced when an I/0 
error occurs. Figure 47 on page 60 is 
an example of this. In this case, 
statement 3. of routine INITIALIZE 
attempted to open a file for which no 
DDNAME definition existed. 


Due to optimization performed by the 
compiler, the code which tests for an 
error condition may be moved _ back 
several statements. Thus, when a 
runtime error occurs, the statement 
number indicated in the traceback might 
be slightly less than the number of the 
statement from which the error was gen- 
erated. 
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Trace back of called routines 

Routine stmt at address in module 
TRACE 02028C AMPXSENV 
HASHKEY 02018C HASHCSEG 
GET_HASH_PTR 021208 HASHBSEG 
SEARCH_ID 0213C8 HASHBSEG 
READ_ID 021550 HASHBSEG 
<MAIN-PROGRAM> 020278 HASHASEG 
PASCAL/VS 02048C 


Figure 44. Trace called by a user program 


AMPX018E Fixed Point Overflow 
Trace back of called routines 

Routine stmt at address in 
FACTORIAL 02014C 
FACTORIAL 02014C 
FACTORIAL 02014C 
<MAIN-PROGRAM> 020298 
PASCAL/VS 02048C 


Figure 45. Trace call due to program error 


AMPX032E High Bound Checking Error 

Trace back of called routines 
Routine stmt at address in module 
TRANSLATE 4 020154 CONVERT 
TO_ASCII 10 02024C CONVERT 
<MAIN-PROGRAM> 17 020338 CONVERT 
PASCAL/VS 02048C 


Figure 46. Trace call due to checking error 


AMPX0401S File could not be opened: SYSIN 
Trace back of called routines 
Routine stmt at address in module 
INITIALIZE 3 020154 COPY 
<MAIN-PROGRAM> 2 020218 COPY 
PASCAL/VS 02048C 


Figure 47. Trace call due to I/0 error 
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9.2 RUN TIME CHECKING ERRORS 


The following is a list of the possible 
checking errors that may occur in a 
Pascal/VS program at run time. 


Low bound 
Either the value of an array sub- 
script, or the value being assigned 
to a subrange type variable is less 
than the minimum allowed for the 
subscript or subrange. 


High bound 
Either the value of an array sub- 
script, or the value being assigned 
to a subrange type variable is 
greater than the maximum allowed 
for the subscript or subrange. 


Nil pointer 
an attempt was made to reference a 
variable from a pointer which has 
the value nil. 


Case label 
the expression of a Case-statement 
has a value other than any of the 
specified case labels and there is 
no otherwise clause. 


String truncation 

the concatenation of two strings 
results in a string greater than 
32767 characters in length, or 
there was an attempt to assign toa 
string a value which has more char- 
acters than the maximum length of 
the string. 


Assertion failure 
an assert statement was executed in 
which its | associated boolean 
expression evaluated to the value 
FALSE. 


String subscript out of bounds 
there was an indexing operation on 
a string which was greater than the 
current length of the string. 


Function value 
a function routine returned to its 
invoker without being assigned a 
result. 


9.3 EXECUTION ERROR HANDLING 


Pascal/VS detects many kinds of errors 
during program execution; upon 
detection of an error, the Pascal/VS 


runtime library will provide error han- 
dling. 


Certain errors are considered fatal by 
the runtime library. Examples of these 
errors are operation exception and pro- 
tection exception. When a fatal error 
occurs the following happens: 


1. Pascal/VS produces a message 
describing the error; the message 
is displayed on your terminal if 
you are executing in VM/CMS or TSO, 
or written to DDname SYSPRINT oth- 
erwise. 


2. A trace back is displayed. 
is termi- 


3. The program execution 
nated. 


Other errors such as checking errors 
will not stop program execution. You 
must determine the extent to which the 
non-fatal errors affect your program 
results. Pascal/VS performs the fol- 
lowing actions when a non-fatal error 
occurs. 


1. <A message describing the error is 
produced; the message is displayed 
on your terminal if you are execut-— 
ing in VM/CMS or TSO, or written to 
DDname SYSPRINT otherwise. 


2. A trace back is generated. 


3. If the program was compiled and 
linked with the "DEBUG' option and 
the program was not executed with 
the '"DEBUG' run time option, then a 
symbolic dump of the variables in 
the procedure experiencing the 
error will be produced; the dump is 
displayed on your terminal if you 
are executing in VM/CMS or TSO, or 
written to DDname SYSPRINT other- 
wise. 


4. If the program was compiled and 
linked with the 'DEBUG' option and 
the program was executed with the 
"DEBUG' run time option then the 
interactive symbolic debugger will 
be invoked as if a breakpoint had 
been encountered. 


Pascal/VS will allow a specific number 
of non-fatal errors to occur before the 
program is terminated. This number is 
set by the ERRCOUNT run time option 
(see "Run Time Options" on page 35). 
The default is 20. 
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9.4% USER HANDLING OF EXECUTION ERRORS 


3 96 DE 3 I DE DE 3 IE IE 3K IEE 3K 3 IE DE 3 IE DE 3 IE DE 3 IE DE 3E DE IE 3K 3 IE IE DE DE IEE DE IE I IE DE IE IK DE IE IE IE DE IE IEE IE IE OE OE OE EEE EEK) 


(x 


(* RUNTIME ERROR INTERCEPTION ROUTINE 


Cx 


(3 369 EI 3 IE DE DE DE DE DE 3 IE 3 IE 3 DE 3 IE 3 IE 3K 3 I DE IK DE I DE IE DE I DE IE DE I DE IE IE DE HE DE I DE HE DE IE DE IE DE IEE IE IE EE IEE IEE EE EK EY) 


type 

ERRORTYPE = 1 .. 90; 

ERRORACTIONS = ¢ 
XHALT, 
XPMSG, 
XUMSG, 
XTRACE, 
XDEBUG, 
XDECERR, 
XRESERVED6, 
XRESERVED7, 
XRESERVED8, 
XRESERVED9, 
XRESERVEDA, 
XRESERVEDB, 
XRESERVEDC, 
XRESERVEDD, 
XRESERVEDE, 
XRESERVEDF); 


ERRORSET = set of ERRORACTIONS; 


procedure ONERROR( 


const 
const 
const 
const 
var 
var 


FERROR 
FMODNAME 
FPROCNAME 
FSTMTNO 
FRETMSG 
FACTION 


ERRORTYPE; 
ALPHA; 
ALPHA; 
INTEGER; 
STRING; 
ERRORSET); 


EXTERNAL; 


Figure 48. 


Pascal/VS provides a mechanism for you 
to gain control when an execution time 
error occurs. When such an- error 
occurs, a procedure called "ONERROR’ is 
called to perform any necessary action 
prior to generating a diagnostic. A 
default ONERROR routine is provided in 
the Pascal/VS library which does noth- 
ing. 


You may write your own version of 
ONERROR and declare it as an EXTERNAL 
procedure. The procedure will be 
invoked when an error occurs; thus you 
may decide how the error should be han- 
dled. Figure 48 shows the contents of 
the IBM-supplied include file that con- 
tains the information relevant to 
producing your own ONERROR routine. 


(¥number of execution errors *) 
(¥action to be performed *) 
(¥terminate program *) 
(¥print pascal diagnostic .*) 
(Xprint user's message *) 
(*¥produce a trace back *) 
(Xinvoke the debugger *) 
(¥decr error counter *) 
CXRESERVED *) 
CXRESERVED *) 
CXRESERVED *) 
CXRESERVED *) 
C¥RESERVED *) 
CXRESERVED *) 
CXRESERVED *) 
C¥RESERVED *) 
C¥RESERVED *) 
C¥RESERVED *) 


CXERROR NUMBER 

(X¥MODULE NAME WHERE OCCURRED 
C¥PROCEDURE WHERE OCCURRED 
C¥STATEMENT NO 

(¥RETURNED USER'S MESSAGE 
CXACTIONS TO BE PERFORMED 


Contents of "%INCLUDE ONERROR’ 


Upon entry to ONERROR the parameter 
FERROR contains the number of the error 
that has been encountered. See "Exe- 
cution Time Messages" on page 150 to 
determine the message number corres- 
ponding to a particular error. & 


FMODNAME, FPROCNAME, and FSTMTNO con- 
tain the name of the module, the name 
of the routine, and the source state- 
ment number, respectively, of the 
location where the error occurred. 


FACTION is a set variable which deter- 
mines what action is to be taken. Upon 
invocation of ONERROR, FACTION will 
describe the default action that will 
take place after ONERROR returns. You 
should examine this information and 
decide whether you would like to handle 


8 Each error intercepted by the Pascal/VS run time environment consists of a 
unique 3 digit number. A diagnostic message corresponding to the error 
will begin with the error number prefixed with the characters AMPX and 
suffixed with the character ‘I’, "E' or "S* (Informational, Error, Severe 


error), 
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the error or let the default action 
take place. 


You may modify the FACTION parameter as 
you desire. If you set the XUMSG meam- 


% INCLUDE ONERROR; 
procedure ONERROR; 
begin 


ber of FACTION then you must also set 
FRETMSG with the text of the message. 
Figure 49 i5 an example of a user 
interception of execution time errors. 


(¥do nothing if fixed, decimal or floating divide by zero *) 
(¥and diagnose fixed-point overflow in procedure HASHFNC~ *) 


if FERROR in [19, 21, 25] then 
FACTION := [ ] 
else 
if CFERROR = 18) & CFPROCNAME 
begin 
FACTION 
FRETMSG 
end; 


[XUMSG]; 


end; 


Figure 49. 


9.5 SYMBOLIC VARIABLE DUMP 


When a program error or checking error 
occurs, a symbolic dump of all vari- 
ables which are local to the routine in 
which the error occurred may be 
produced. This dump will be produced 
if two conditions are met: 


° The source module containing the 
code from which the error occurred 
was compiled with the DE3SUG option. 


"HASHFNC') then 


"INPUT DATA CONTAINS GARBAGE’; 


Example of User Error Handling 


° The Pascal/VS debug library was 
included in the generation of the 
associated load module. 


The variable dump is placed on your 
terminal if you are executing in VM/CMS 
or TSO, or written to DDname SYSPRINT 
otherwise. 
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The Pascal/VS interactive debugger is a 
tool that allows programmers to quickly 
debug Pascal/VS programs without hav- 
ing to write debug statements directly 
into their source code. Basic func~ 
tions include tracing program 
execution, viewing the runtime values 
of program variables, breaking at 
intermediate points of execution, and 
displaying statement frequency count- 
ing information. The programmer uses 
Pascal/VS source names to reference 
statements and data. 


Under TSO and CMS, debugger commands 
are read directly from your terminal; 
likewise, the output is written direct- 
ly to your terminal. If the debugger 
is being run in OS batch, then the 
input is read from DDname SYSIN; the 
output is sent to SYSPRINT. 


In order to use the debugger, you must 
follow these three steps: 


° Compile the module to be debugged 
with the DEBUG option. Modules 
that have been compiled with the 
DEBUG option can be linked with 
modules that have not been compiled 
with the DEBUG option. 


° When link editing your program, 
include the debug library. cIt 
must be located ahead of the 
runtime library in search order).? 


e When executing the load module, 
specify ‘DEBUG' as aerun time 
option.?® This will cause the debug 
environment to become active and 
you Will be immediately prompted 
for a debugger command. 


In the debugger environment the user 
may issue debug commands and examine 


when invoking PASCMOD. 


10.0 PASCAL/VS INTERACTIVE DEBUGGER 


variables in those modules which were 
compiled with the DEBUG option. 


10.1 QUALIFICATION 


A qualification consists of a module 
name and a routine name. The debugger 
uses the current qualification as the 
default to retrieve information for 
commands. The current qualification 
consists of the name of the routine and 
associated source module which was last 
interrupted when the debugger gained 
control. 


At the start of a debug session, the 
current qualification is the name of 
the module containing the main program, 
and the main program itself. 


10.2 COMMANDS 


This section describes the commands 
that a user may issue with the debug 
facility. Every command may be abbre- 
viated to one letter if desired except 
the QUIT and CLEAR commands which have 
no abbreviation. Square brackets ('[' 
and ‘'J]') are used in the command 
description to indicate optional parts 
of the command. 


Semicolons are used to separate multi- 
ple commands on each line. 


9 Under CMS, the debug library is included if the DEBUG option is specified 
Csee "How to Build a Load Module" on page 12.) 


Under 150, the debug library is included by specifying the DEBUG keyword 
operand when invoking the PASCMOD clist. (see "How to Build a Load 


Module” on page 18.) 


Options" on page 35. 


Run time options must be terminated with a slash ('/'). See "Run Time 
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10.2.1 


BREAK Command 


Command Format: 


stmt 
BREAK [[Emodule/] [routine]/] Lun | 


stmt 
B [EImodule/] [routinels] | 
END 


B 
where: 


module is the name of a Pascal/VS 
module. 
routine is the name of a procedure 
or function in the module. 
stmt is a number of a statement 
in the designated routine. 
END is a keyword which denotes the 
end of the routine. 


This command causes a breakpoint to be 
set at the indicated statement. The 
program is stopped before the statement 
is executed, 


The module and/or routine may be omit- 
ted in which case the defaults are tak- 
en from the current qualification. 
stmt is the number of the statement on 
which to stop in the specified routine 
of the specified module. The statement 
numbers are found on the source 
listing. END specifies that the break- 
point is to occur in the epilogue of 
the routine immediately prior to the 
routine's return. 


A maximum of 8 breakpoints may be set 
at any one time. The following table 
illustrates the meaning of the various 
forms. 


Input Module Procedure 
BS current current 
B/S current main program 
B P/S current 
B M//S M main program 
B M/P/S M 
Where: 
current - means currently qualified 
module or procedure, 
M,P - are the names of a module 
or procedure 
S - is either a statement 


number or END 
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10.2.2 CLEAR Command 


Command Format: 

CLEAR 

Minimum Abbreviation: 
CLEAR 


There are no operands. 


The CLEAR command is used to remove all 
breakpoints. 


10.2.3 CMS Command 


Command Format: 

CMS 

Minimum Abbreviation: 
Cc 


There are no operands. 


This command activates the CMS subset 
mode. If the program is not being run 
under CMS, the command is ignored. 


10.2.% DISPLAY Command 


Command Format: 
DISPLAY 
Minimum Abbreviation: 


D 


The DISPLAY command is used to display 
information about the current debugger 
session at the user's terminal. The 
information displayed is: 


e the current qualification, 

e where the user's program will 
resume execution upon the GO com- 
mand, 

e the current status of Counts, 

e the current status of Tracing. 
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10.2.5 DISPLAY BREAKS Command 10.2.6 DISPLAY EQUATES Command 


Command Format: Command Format: 


DISPLAY BREAKS DISPLAY EQUATES 


Minimum Abbreviation: Minimum Abbreviation: 


DB DE 


There are no operands. There are no operands. 


The DISPLAY BREAKS command is used to The DISPLAY EQUATE command is used to 
produce a list of all breakpoints which produce a list of all equate symbols 
are currently set. and their current definitions. 
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10.2.7 END Command 10.2.8 EQUATE Command 


Command Format: 


END 


Command Format: 


EQUATE identifier [data] 


Minimum Abbreviation: 


END 


Minimum Abbreviation: 


E identifier [data] 


Where: 


identifier is a Pascal/VS 
identifier. 
The END command causes the program to data is a command which the 
immediately terminate. This command is identifier is to represent. 
synonymous With QUIT. 


The EQUATE command equates an identifi- 
er name to a data string. When the 
identifier name appears in a command, 
it will be expanded inline prior to 
executing the command. 


As an example, the command 
EQUATE X ,B[I] 


will cause the variable "B[I]" to be 
viewed when "X" jis entered as a 
command. The commands 


EQUATE Y RO.F[6].J 
»BLY] 


will cause the variable "B[RA.F[6].J]" 
to be viewed. 


A semicolon may not terminate the 
EQUATE command; a semicolon will be 
treated as part of the data string. 
For example, the command 


EQUATE Z GO;LISTVARS 


will cause the "GO" and "LISTVARS"” com- 
mands to be executed in succession when 
"Z" 1s entered as a command. 


An equate command may be used to rede- 
fined the meaning of a debugger 
command: ?2 


EQUATE GO WALK 


makes the command "GO" function as the 
command "WALK". 


An equate command may be cancelled by 
equating the previously defined iden- 
tifier to an empty data string: 


EQUATE Z 


C | 11 There is one exception: the name EQUATE (and its abbreviations) may not be 
equated to a data string. 
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removes the symbol n7n from the 
debugger's equate table. 


Equates may be equated to strings which 
contain other equates. All substi- 
tution will take place after expansion. 
The commands 


EQUATE A Pd.I 
EQUATE B »XYZEA] 


will cause the symbol "BY to be 
expanded to ",XYZ[Pa.I1]". 
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10.2.9 GO Command 


| Command Format: 


GO 
Minimum Abbreviation: 
G 


There are no operands. 


This command causes the program to 
either start or resume executing. The 
program will continue to execute until 
one of the following events occurs: 


e breakpoint 

° program error 

° normal program exit 

A breakpoint or program error will 


return the user to the Debug environ- 
ment. 


C 


10.2.10 Help Command 


Command Format: 


? 


Minimum Abbreviation: 
? 


There are no operands. 


The Help command lists all Debug com- 
mands. 


10.2.11 LISTVARS Command 


Command Format: 


LISTVARS 


Minimum Abbreviation: 


L 


There are no operands. 


This command displays the values of all 
variables which are local to the cur- 
rently active routine. 
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10.2.12 Qualification Command 


Command Format: 
QUAL [module 7] [routine] 
Minimum Abbreviation: 

Q [module 7] [routine] 

Where: 

module is the name of a Pascal/VS 
module. 


routine is the name of a procedure 
or function in the module. 


If the user does not specify a module 
and/or a routine name the defaults are 
taken from the current qualification. 
The defaults are applied as follows: 


e the module name defaults to the 
current qualification. 


° the routine defaults to the main 
program if the associated module is 
a program module, or to the outer- 
most lexical level if the module is 
a segment module. 


The lexical scope rules of Pascal are 
applied when viewing variables. The 


current qualification provides the 
basis on which program names’ are 
resolved. If there is no activation of 


the routine available (no invocations) 
the user may not display local vari- 
ables for that routine. 


Qualification may be changed at any 
time during a Debug session. When a 
breakpoint is encountered, the quali- 
fication is automatically set to the 
module and the routine in which the 
breakpoint was set. 
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10.2.13 QUIT Command 


Command Format: 
QUIT 

Minimum Abbreviation: 
QUIT 


There are no operands. 


This command causes the program to end. 
It is similar to a normal program exit. 
The user is returned to the operating 
system. 


10.2.14 RESET Command 


Command Format: | 


stmt 
RESET [LU€module/] Croutinel/) [ | 
END 


Minimum Abbreviation: 


stmt 
R €Emodule/] [routinels] | 
END 


Where: 


module is the name of a Pascal/VS 
_ module. 
routine is the name of a procedure 


or function in the module. 
stmt is a number of a statement 
in the designated routine. 


The RESET command is used to remove a 
breakpoint. The defaults are the same 
as the BREAK command. 


10.2.15 SET ATTR Command 


Command Format: 


or 


SET ATTR [ 
OFF 


Minimum Abbreviation: 


ON 
sa [ | 
OFF 


The SET ATTR command is used to set the 
default way in which variables are 
viewed. The ON parameter’ specifies 
that variable attribute information 
will be displayed by default. The OFF 
parameter specifies that variable 
attribute information will not be dis- 
played by default. The default may be 
overridden on the variable viewing com- 
mand. 
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10.2.16 SET COUNT Command 


Command Format: 


ON 
SET COUNT [ ] 


OFF 


Minimum Abbreviation: 


ON 
sc | ] 
OFF 


The SET COUNT command is used to initi- 
ate and terminate statement counting. 
Statement counting is used to produce a 
summary of the number of times every 
statement is executed during program 
execution. The summary is produced at 
the end of program execution and is 
written to the standard file OUTPUT. 
Statement counting may also be initi- 
ated with the runtime COUNT option. 
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10.2.17 SET TRACE Command 


Command Format: 


ON 
SET TRACE [ OFF ] 
To ddname 


Minimum Abbreviation: 


ON 
Ss T [ OFF ] 
TO ddname 


Where: 


ddname is the name of a DDname 
where the trace output is to be 
sent. 


The SET TRACE command is used to either 
activate or deactivate program 
tracing. Program tracing provides the 
user with a list of every statement 
executed in the the program. This is 
useful for following the execution flow 
during execution. 


The output from the program trace nor- 
mally will go to your terminal, by 
using the TO option you may direct the 
output to a specific file. 


10.2.18 TRACE Command 


Command Format: 


TRACE 


Minimum Abbreviation: 


T 


This command has no operands. 


The TRACE command is used to produce a 
routine trace at the user's terminal. 
The procedures on the current invoca- 
tion chain are listed along with the 
most recently executed statement in 
each. 


10.2.19 Viewing Variables 


Command Format: 


CC option (€)]] 


» variable 
Where: 


variable is a Pascal variable. 
See the chapter entitled 
"Variables" in the Pascal/VS 
Reference Manual for the 
syntax of a variable. 

option is either ATTR or NOATTR. 


This command allows the user to obtain 
the contents of a variable during pro- 
gram execution. 


The static scope rules that apply to 
the current qualification are applied 
to the specified variable. If the var- 
iable is found to be a valid reference, 
then its value is displayed. If the 
name cannot be resolved within the cur- 
rent qualification, the user is 
informed that the name is not found. 
If the name resolves to an automatic 
variable for which no activation cur- 
rently exists the user is informed that 
the variable cannot be displayed. 


As can be seen from the following exam- 
ples, array elements, record fields, 
and dynamic variables may all be 
viewed. Variables are formatted 
according to their data type. Entire 
records, arrays and spaces are dis- 
played as a hexadecimal dump. The user 
may view an array slice by specifying 
fewer indices than the declared dimen- 
sion of the array. The missing indices 
must be the rightmost ones. 


The options ATTR or NOATTR can followa 
left parenthesis. The default is taken 
from the SET ATTR command. The initial 
default is NOATTR. If the user gives 
ATTR as an option, attributes of the 
variable are displayed along with the 
value of the variable. The attributes 
are the data type, memory class, length 
if relevant, and the routine where the 
variable was declared. 


Note: a subscripting expression may 
only be a variable or constant; that 
is, it may contain no operators. Thus, 
such a reference as 

,»albalj]] 


is valid Cat least syntactically), but 
the reference 


,alit3] 
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1s not a valid reference because the 
subscripting expression is not a vari- 
able or constant. 


Examples 


»pa.b 
»bC1l,x].int CATTR 
»palx,y].ba.all] 


If the variable being viewed has not 
been assigned a value then the results 
depend on the variable's type: 


° If the variable is of a simple type 
Cinteger, char, real, etc.), then 
the word "uninitialized" will be 
printed. 


° If the variable is of a structured 
type (array, record), then the con- 
tents will be printed in 
hexadecimal; each byte of the the 
variable which is uninitialized 
will have the value "FE? 
Chexadecimal). 
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10.2.20 Viewing Memory 


Command Format: 
» hex-string € : length ] 


Where: 


hex-string is a number in 
hexadecimal notation. 
length is an integer. 


This command is used to display the 
contents of a specific memory location. 
Memory beginning at the byte specified 
by the hex string is dumped for the 
number of bytes specified by the length 
field. If the length is not specified 
memory is dumped for 16 bytes. The 
dump is in both hex and character for- 
mats. 


The hex string must be an hexadecimal 
number surrounded by single quotes and 
followed by an °x! (eg. '35D05'X). The 
length is specified in decimal. 


Examples 


»'20000'X 
»'46cf0'X = 100 


10.2.21 WALK Command 


Command Format: 


WALK 
Minimum Abbreviation: 


W 


There are no operands. 


This command causes the program to 
either start executing or resume exe- 
cuting. The program execution will 
continue for exactly one statement and 
then the user will be returned to 
Debug. This command is useful for sin- 
gle stepping through a section of code. 
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10.3 DEBUG TERMINAL SESSION 


|program Primgen; 


PrimeRange = 1..100; C¥Specify limits for the 


(% number of prime numbers 


Prime > arrayl PrimeRange ] of Integer; 


NotUsed : PrimeRange; 
SavelIndex > PrimeRange; 


TestNumber =: Integer; 


(¥This array stores the result) 
(XUsed test preceeding primes *) 
(*Used to remember last used »*) 
(CX spot in Prime *) 
(¥Test value for primeness *) 


function IsPrime(€ Testval =: INTEGER) : BOOLEAN; 
var 


Primel[1] 
Primel[2] 
Prime([(3] 
TestNumber 
SavelIndex 


Quotient, (X¥Testval div prime 

Remainder : Integer; (*¥Test value for primeness 

PrimeIndex : PrimeRange; (XUsed test preceeding primes 
(¥IsPrime 

PrimeIndex == Lowest(PrimeRange) ; (¥Test each previous prime 

repeat C¥Starting with the first one 


PrimeIndex := Succ (PrimeIndex); (*Get next prime 


C¥Compute relative primeness of Testval and a known prime 
Quotient := Testval div PrimelPrimeIndex]; 
Remainder := Testval - Quotient * PrimelPrimeIndex] 

until CRemainder=0) | (Quotient <= PrimelPrimeIndex]); 


if Remainder = 0 then CXIf the number was divided by*) 
IsPrime := FALSE (¥any known Prime, then this” *) 
else (¥is not prime *) 
= TRUE; 
(XI sPrime 


(XFirst three primes 

(x ditto 

(x ditto 

(*¥Start canidates at 5 
(¥Last used prime entry 


repeat 


TestNumber += TestNumber + 23 (*¥Test each odd number 
(CX starting with the first 
if IsPrime(TestNumber) then (XIf canidate is a prime 
begin (¥Save it in the next entry 
SaveIndex:= Succ (SavelIndex) ; (*% of the prime table 
PrimeLSaveIndex] := TestNumber 
end 


until SaveIndex = Highest(PrimeRange) ; 


C#Print results at ten to a line 


for PrimeIndex := Lowest(PrimeRange) to Highest(PrimeRange) do 


end. 


begin 
Write€ Prime[PrimeIndex]:7 ); C¥Print one prime number 
if (PrimeIndex mod 10) = 0 then (¥If ten have been printed 
Writeln (% then skip to next line 
end; 


C¥Primgen 


Figure 50. Sample program for Debug session 
The following series of figures is a commands are high lighted and under 
sample Debug terminal session that dem- lined. The program being executed is 
onstrates breakpoints, viewing vari- shown in Figure 50. 
ables and other DEBUG commands. User 
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J 


pascalvs prit 


n_ (debug 


maen Cd 
INVOKING PASCAL/VS R2.0 
DE 


NO COMPILER 


Source lines: 


TECTED ERRORS 


62; Total time: 1.20 séconds; Total rate: 


Rs T=1.7373.05 16:13:54 


pascmod primgen (debuq 
R; T=0.9072.19 16:14:51 


T=0.03 


primgen debuq count 7 
Debug(PRIMGEN <MAIN- 


Figure 51. Compi 


9 
Name Cabbreviati 
9 


? 

Break 

CLEAR 

Cms 

Display 
Display Break 
Display Equate 


Listvars 
Qual 

QUIT 
Reset 

Set Attr 
Set Count 
Set Trace 
Trace 
Walk 


5 16 


iledef output terminal 
3 = 70.0 714:5 


PROGRAM>): 


ling, linking and executing a program with DEBUG 


on is in capital letters) 

This command list 

Display a variable 

Set a breakpoint 

Remove all breakpoints 

Enter CMS subset mode 

Display currently resume point 
Display currently set breakpoints 
Display currently set equates 

Halt your program 

Set an identifier to a literal value 
Continue executing your program 

List all variables 

Set default module/routine 

Halt your program 

Remove a specific breakpoint 

Set default viewing information ON/OFF 
Turn statement counting ON/OFF 

Turn tracing ON/OFF/TO fileid 
Display invocation chain of routines 
Execute one statement of current routine 


Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 52. The HELP command of DEBUG 


3092 LPM 
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80 


MGEN/<MAIN-PROGRAM>/8 
ug(PRIMGEN <MAIN-PROGRAM>): 


go 
Stopped at PRIMGEN/<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>7/9 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


walk 
Stopped at PRIMGEN/<MAIN-~PROGRAM>/10 
Debug(PRIMGEN <MAIN~PROGRAMD>): 


Figure 53. Setting Breakpoints and Statement Walking 


listvars 
Variables for procedure: <MAIN-PROGRAM> 
PRIME 
C0003CA28) 
000000 00000002 00000003 00000005 FEFEFEFE ' 
000010 FEFEFEFE FEFEFEFE FEFEFEFE FEFEFEFE 
(00000020 through 0000018F is the same as above) 
NOTUSED = uninitialized 
SAVEINDEX = 3 
TESTNUMBER = 7 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 54. The LISTVARS command - List all variables 
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set trace on 
Program trace in on -- output to '<TERMINAL>! 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


a9 
Resuming PRIMGEN <MAIN-PROGRAM> 
> 6-7 


PRIMGEN ISPRIME 
1 


2-5 
6 
7 
Returning from ISPRIM 


E 
Resuming PRIMGEN <MAIN-PROGRAM> 
: 


ISPRIME 


8 
Returning from ISPRIME 
Resuming PRIMGEN <MAIN-PROGRAM> 
> 8-9 


Stopped at PRIMGEN/<MAIN-PROGRAM>78& 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


Figure 55. The Trace Mode of DEBUG 
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6-7 

PRIMGEN ISPRIME 
1 
-5 
-5 


Returning from ISPRIME 

Resuming PRIMGEN <MAIN-PROGRAM> 
8-9 

Stopped at PRIMGEN/<MAIN-PROGRAM>/8 

Debug(PRIMGEN <MAIN-PROGRAM> ): 


walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>/9 
Debug(PRIMGEN <MAIN~PROGRAM>): 


Stopped at PRIMGEN/<MAIN-PROGRAM>7/10 
Debug(PRIMGEN <MAIN-PROGRAMD> ): 


topped at PRIMGEN/<MAIN-PROGRAM>/6 
ebug(PRIMGEN <MAIN-PROGRAM>): 


walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>/7 
Debug(PRIMGEN <MAIN-PROGRAM>): 


walk 
Executing PRIMGEN ISPRIME 


Returning from ISPRIME 
Resuming PRIMGEN <MAIN-PROGRAM> 
10 
Stopped at PRIMGEN/<MAIN-PROGRAM>/10 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


go 
Stopped at PRIMGEN/<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 56. Walking when the Trace Mode is On 
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display qualification 
Currently qualified to PRIMGEN <MAIN-PROGRAM> 
Will resume at PRIMGEN <MAIN-PROGRAM> 8 
Counts are on 
Trace is on 
Trace output to <TERMINAL> 
Debug(PRIMGEN <MAIN-PROGRAM>): 


display breaks 
Module Routine Stmt 
PRIMGEN <MAIN-PROGRAM> 8 
Debug(PRIMGEN <MAIN-PROGRAM>) : 


equate tn ,testnumber 
I 


Debug(PRIMGEN <MAIN-PROGRAM>): 


n 
> TESTNUMBER 
TESTNUMBER = 19 


Debug(PRIMGEN <MAIN-PROGRAM>): 


display equate 
TN ==> ,TESTNUMBER 
Debug(PRIMGEN <MAIN-PROGRAM>): 


set trace off 
Program trace is off 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


Figure 57. Miscellaneous DEBUG Commands 


Debug(PRIMGEN <MAIN-PROGRAM>): 


, testnumber Cattr 
DATA TYPE: INTEGER 
MEMORY CLASS : LOCAL AUTOMATIC 
DECLARED IN =: <MAIN-PROGRAM> 
TESTNUMBER = 19 
Debug(PRIMGEN <MAIN-PROGRAM>) : 


»primello] 
PRIMEL10] = uninitialized 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


2primel5] 
PRIMEL5] = 11 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 58. Commands to Display a Variable 
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Stepped at PRIMGEN/ISPRIME/END 
Debug(PRIMGEN ISPRIME): 


trace 
Trace back of called routines 
Routine stmt at address in module 
ISPRIME 8 020138 PRIMGEN 
<MAIN-PROGRAM> 7 020260 PRIMGEN 
PASCAL/VS 02055A 


Debug(PRIMGEN ISPRIME): 
set trace on 


Program trace in on -- output to '<TERMINAL>' 
Debug(PRIMGEN ISPRIME): 


equate next aqo;listvars 
Debug(PRIMGEN ISPRIME): 


ISTVARS 
uming PRIMGEN <MAIN-PROGRAM> 


ISPRIME 


Returning from ISPRIME 
Stopped at PRIMGEN/ISPRIME/END 
Variables for procedure: ISPRIME 
PRIMEINDEX = 2 
QUOTIENT = 13 
REMAINDER = 0 
TESTVAL = 39 
Debug(PRIMGEN ISPRIME): 


set _ trace off 
Program trace is off 
Debug(PRINGEN <MAIN-PROGRAMD> ): 


Figure 59. Using Multiple commands on one Line and other commands 
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reset 8 
Breakpoint at PRIMGEN/<MAIN-PROGRAM>78& has been removed 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


go 
Stopped at PRIMGEN/ISPRIME/END 
Debug(PRIMGEN ISPRIME): 


listvars 
Variables for procedure: ISPRIME 
PRIMEINDEX = 2 
QUOTIENT = 11 
REMAINDER = 0 
TESTVAL = 33 
Debug(PRIMGEN ISPRIME): 


reset end 
Breakpoint at PRIMGEN/ISPRIME/END has been removed 
Debug(PRIMGEN ISPRIME): 


go 
2 3 5 7 13 
31 37 41 43 53 
73 79 83 89 101 
127 131 137 139 151 
179 181 191 193 199 
233 239 241 251 263 
283 293 307 311 317 
353 359 367 373 383 
419 421 431 433 443 
467 479 487 491 503 


Figure 60. The Reset Breakpoint Command 


PASCAL/VS STATEMENT COUNTING SUMMARY PAGE 1 


<MAIN-PROGRAM> IN PRIMGEN CALLED 1 TIME(S) 
FROM-TO: COUNT FROM-TO: COUNT FROM-TO: FROM-TO: COUNT 
1-5 31 6-7 2268 8-9 : 10 2268 
11:1 12-13 :100 14 


ISPRIME IN PRIMGEN CALLED 268 TIME(S) 

FROM-TO: COUNT FROM-TO: COUNT FROM-TO: COUNT FROM-TO: COUNT 
1 3268 2-5 :910 6 #268 7 3171 
8 :97 


Figure 61. Statement Counting Summary 
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This section describes the rules that 
the Pascal/VS compiler employs in map- 
ping variables to storage locations. 


11.1 AUTOMATIC STORAGE 


Variables declared locally to a routine 
via the var construct are assigned off- 
sets within the routine's dynamic stor- 
age area (DSA). There is ae DSA 
associated with every invocation of a 
routine plus one for the main program 
itself. The DSA of a routine is allo- 
cated when the routine is called and is 
deallocated when the routine returns. 


11.2 INTERNAL STATIC STORAGE 


For source modules that contain va- 
riables declared STATIC, a single 
unnamed control section C'private 
code’) is associated with the source 
module in the resulting text deck. 
Each variable declared via the STATIC 
construct, regardless of its scope, is 
assigned a unique offset within this 
control section. 


11.3 DEF STORAGE 


Each def variable which is initialized 
by means of the value declaration will 
generate a named control section 
(csect). Each def variable which is 
not initialized will generate a named 
COMMON section.22 The name of the sec- 
tion is derived from the first eight 
characters of the variable's name. 


11.0 STORAGE MAPPING 


11.4 DYNAMIC STORAGE 


Pointer qualified variables are allo- 
cated dynamically from heap storage by 
the procedure 'NEW’. Such variables 
are always aligned on ae doubleword 
boundary. 


11.5 RECORD FIELDS 


Fields of records are assigned consec~— 
utive offsets within the record ina 
sequential manner, padding where nec— 
essary for boundary alignment. Fields 
within unpacked records are aligned in 
the same way as variables are aligned. 
The fields of a packed record are 
aligned on a byte boundary regardless 
of their declared type. 


11.6 DATA SIZE AND BOUNDARY ALIGNMENT 


A variable defined in an Pascal/VS 
source module is assigned storage and 
aligned according to its declared type. 


11.6.1 The Predefined Types 


The table in Figure 62 displays the 
storage occupancy and boundary align- 
ment of variables declared with a pre- 
defined type. 


STORAGE MAPPING OF DATA 


DATA TYPE SIZE in bytes 


ALFA 
ALPHA 
BOOLEAN 


CHAR 
INTEGER 
SHORTREAL 
REAL 
STRINGClen) 
STRINGPTR 


— 
OND OAR r CO 


BOUNDARY ALIGNMENT 


BYTE 
BYTE 
BYTE 
BYTE 
FULL WORD 
FULL WORD 
DOUBLE WORD 
HALF WORD 
FULL WORD 


nN 


3 
+ 
nN 


Figure 62. Storage mapping for predefined types 


nicate with FORTRAN subroutines. 


Each def variable becomes a named COMMON block which may be used to commu- 


Storage Mapping 87 


11.6.2 Enumerated Scalar 


An enumerated scalar variable with 256 
or fewer possible distinct values will 
occupy one byte and will be aligned on 
a byte boundary. If the scalar defines 
more than 256 values then it will occu- 
py a half word and will be aligned ona 
half word boundary. 


11.6.3 Subrange Scalar 


A subrange scalar that is not specified 
as packed will be mapped exactly the 
Same way as the scalar type from which 
it is based. 


A packed subrange scalar is mapped as 
indicated in the table of Figure 63. 
Given a type definition T as: 


typa 
T = packed i..j; 
and 
const 
I = ORDCi); 
J = ORD(3); 
Range of SIZE in| ALIGNMENT 
T .. J bytes 
0..255 BYTE 
-128..127 BYTE 
-32768..32767 HALF WORD 
0..65535 HALF WORD 
0..16777215 BYTE 
-8388608. .8388607 BYTE 


FULL WORD 


otherwise 


Figure 63. Storage mapping of 
subrange scalars 


Each entry in the first column in the 
above table is meant to include all 
possible sub-ranges within the spec 
ified range. For example, the range 
100..250 would be mapped in the same 
way as the range 0..255. 


11.6.4 RECORDS 


An unpacked record is aligned on a 
boundary in such a way that every field 
of the record is properly aligned on 
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its required boundary. That is, 
records are aligned on the boundary 
required by the field with the largest 
boundary requirement. 


For example, record A below will be 
aligned on a full word because its 
field Al requires a full word 
alignment; record B will be aligned on 
a double word because it has a field of 
type REAL; record C will be aligned on 
a byte. 


record (full word aligned) 
Al : INTEGER; 
A2 : CHAR 

end; 


record (*double word aligned) 
Bl : A; 
B2 : REAL; 
B3 : BOOLEAN 

end; 


record (*byte aligned*) 
Cl : packed 0..255; 
C2 : ALPHA 

end; 


Figure 64. Alignment of records 


Packed records are always aligned ona 
byte boundary; 


41.6.5 ARRAYS 


Consider the 
definition: 


following type 


type 
A = array [€—C s 1] of t 


where type s is a simple scalar 
and t is any type. 


A variable declared with this type 
definition would be aligned on the 
boundary required for data type 't'. 
With the exception noted below, the 
amount of storage occupied by this var- 
iable is computed by the following 
expression: 


CORDCHIGHEST(5))-ORDCLOWEST(5))+1) 
x SIZEOF(t) 


The above expression is not necessarily 
applicable if rt? represents an 
unpacked record type. In this case, 
padding will be added, if necessary, 
between each element so that each ele- 
ment will be aligned on a_ boundary 
which meets the requirements of the 
record type. 


J 


Packed arrays are mapped exactly as 
unpacked arrays, except padding is nev- 
er inserted between elements. 


A multi-dimensional array is mapped as 
an array of array(s). For example the 
following two array definitions would 
be mapped identically in storage. 


array [ i..j, -n J] of t 
array [ i..j3 ] of 
array [ m..n ] of t 


11.6.6 FILES 


File variables occupy 64 bytes and are 
aligned on a full word boundary. 


11.6.7 SETS 


SETs are represented internally as a 
string of bits: one bit position for 
each value that can be contained within 
the set. 


To adequately explain how sets are 
mapped, two terms will need to be 
defined: The base type is the type to 
which all members of the set must 
belong. The fundamental base type 
represents the non-subrange scalar 
type which is compatible with all valid 
members of the set. For example, a set 
which is declared as 


set of '0'..'9!' 


has the base type defined by '"0'..'9'; 
and a fundamental base type of CHAR. 


Any two unpacked sets which have the 
same fundamental base type will be 
mapped identically (that is, occupy the 
same amount of storage and be aligned 
on the same boundary). In other words, 
given a set definition: 


type 
S 
T 


set of s; 
set of t; 


where s iS a non-Subrange scalar type 
and t is a subrange of s: both § and T 
will have the same length and will be 
aligned in the same manner. 


Sets always have zero origin; that is, 
the first bit of any set corresponds to 
a member with an ordinal value of zero 
Ceven though this value may not be a 
valid set member). 


base type. 


Unpacked sets will contain the minimum 
number of bytes necessary to contain 
the largest value of the fundamental 
Packed sets occupy the min- 
imum number of bytes to contain the 
largest valid value of the base type. 
Thus, variables A and B below will both 
occupy 256 bits. 


var 
A : set of CHAR; 
B : set of '0'..'9'; 


Variables C and D will both occupy 16 
bits; variable E will occupy 8 bits. 


var 
Cc : set of (C1,C2,C3,C4,C5,C6, 
C7,C8,C9,C10,C11,C12 
€12,C13,C€14,C15,C16); 
D: set of C1..C8; 
E : packed set of C1..C8; 


A set type with a fundamental base type 
of INTEGER is restricted so that the 
largest member to be contained in the 
set may not exceed the value 255; 
therefore, such a set will occupy 256 
bits. 


Thus, variables U and V below will both 
occupy 256 bits; variable W will occupy 
21 bits; variable X will occupy 32 
bits. 


var 
U: set of 0..255; 
Vo: set of 10..20; 
W : packed set of 10..20; 
X : packed set of 0..31; 


Given that M is the number of bits 
required for ae particular set, the 
table in Figure 65 indicates how the 
set will be mapped in storage. 


Range of SIZE ALIGNMENT 
M BYTES 


BYTE 
HALF WORD 


BYTE 
FULL WORD 
M <= 256) (M+7) BYTE 


Storage mapping of 


SETS 


Figure 65. 
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11.6.8 SPACES 


A variable declared as a space is 
aligned on a byte boundary and occupies 
the number of bytes indicated in the 
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length specifier of the type 
definition. For example, the variable 
S declared below occupies 1000 bytes of 
storage. 


var S: space [1000] of INTEGER; 


J 


12.1) LINKAGE CONVENTIONS 


Pascal/VS uses standard OS linkage con- 
ventions with several additional 
restrictions. The result is that 
Pascal/VS may call any program that 
requires standard conventions and may 
be called by any program that adheres 
to the additional Pascal/VS restric-— 
tions. 


On entry to a Pascal/VS routine the 
contents of relevant registers are as 
follows: 


° Register 1 - points to the parame- 
ter list 


° Register 12 - points to the 
Pascal/VS Communication Work Area 
CPCWA) 


e Register 13 ~- points to the save 
area provided by the caller 


e Register 14 ~ return address 


e Register 15 - entry point of called 
routine 


Pascal/VS requires that the parameter 
register (R1) be pointing into the 
Dynamic Storage Area (DSA) stack in 
such a way that 144 bytes prior to the 
Rl address is an available save area. 


12.0 CODE GENERATION FOR THE IBN/370 


12.2 REGISTER USAGE 


The table in Figure 66 describes how 
each general register is used within a 
Pascal/VS program. The floating point 
registers are used for computation on 
data of type REAL. 


register(s) purpose(s) 
0,1 
- temporary work registers 
for the compiler 
~ standard linkage usage 
on calls 


3,4,5,6,7,8,9 
- registers assigned by the 
compiler for computation 
and for data base 
registers 


code base registers 
of the currently 
executing routine 


address of the DSA of the 
main program 


always points to Pascal/VS 
Communication Work Area 


always points to the local 
DSA 


14,15 
- temporary work registers 
for the compiler 
- standard linkage usage 
on calls 


Figure 66. 


Register usage 
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12.3 DYNAMIC STORAGE AREA 


On entry to a procedure or function, an 
area of memory called a Dynamic Storage 
Area (DSA) is allocated. This area is 
used to contain save areas, local vari- 
ables and compiler generated tempo- 
raries. A Pascal/VS routine requires a 
DSA of at least 144 bytes; if the rou- 
tine has parameters or local variables, 
more space is needed. 


register 13—-> 
0: Register 
Save area 


SISTA AS AAS ASS 


| |SSSSSSAST 


reserved for 
error handling 


floating point 
registers 
FO - F6 


parameter 
list 


local variables 
and compiler 
temporaries 


translator 
temporaries 


144 byte save area 


parameter list 
to be built here 


144 byte save area 


16 byte rte parms 
4/07 indicates that the field 


Figure 67. DSA format 


13° Under MVS, the name of this library 
it is PASCALVS MACLIB. 
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The first 72 bytes are generally used 
according to standard OS linkage con- 
ventions. The first word is used to 
copy the previous data base register at 
the current procedure nesting level. 


Figure 67 illustrates the structure of 
the DSA. Figure 68 on page 93 shows 
the DSECT expansion of the DSA. CA 


copy of this DSECT may be found in mem- 
ber DSA of the standard include 
library?*.) 


reserved for future use 

pointer to translator temporaries 
pointer to parameter list build area 
pointer to the end of the DSA 
pointer to the frequency count table 


execution flags, check function flag 


if the routine has no parameters then 
this space is not present 


if the routine has no local variables 
and requires no compiler temporaries, 
then this space 15 not present 


if the routine requires no translator 
temporaries, then this space is not 
present 

The following areas only in last DSA 

for the next routine to be called 


for runtime environment in case of 
error 
room for parameters 


error recovery 


if required by 


is not presently used. 


is sysl.PASCALVS.MACLIB. Under CMS, 


DSA 
DSASDIS 
DSALSVA 


Save space for display level 

Pointer to last save area 

Creserved for future use) 

Return address 

Entry point address 

Save area for register 0 

Save area for parameter list pointer (reg 1) 
Save area for base register for code (reg 2) 
Save area for register 3 

Save area for register 

Save area for register 

Save area for register 

Save area for register 

Save area for register 

Save area for register 

Save area for 2nd base register for code (reg 10) 
Save area for register 11 (main DSA address) 
Save area for register 12 (PCWA pointer) 
Used by attention processor 

Reserved 

Address of temporary section of DSA 

Address of parameter list build area 

Address of runtime parameter list build area 
Address of count table 

Interactive debugger flags 

Function assignment check flag 

Reserved 

Save area utilized by error recovery 

Save area utilized by error recovery 

Save area utilized by error recovery 

Save area for floating point register 

Save area for floating point register 

Save area for floating point register 

Save area for floating point register 

Length of DSA header 


DSARETA 
DSAEPAD 
DSARGO 
DSAPREG 
DSACODE 
DSARG3 
DSARG4 
DSARGS5S 
DSARG6 
DSARG7 
DSARG8 
DSARG: 
DSACOD2 
DSAL1B 
DSAPCWA 
DSAAKEY 
DSARES4 
DSATPTR 
DSAPPTR 
DSARPTR 
DSACNTS 
DSARAID 
DSAFUNX 
DSARES1 
DSACKSAL 
DSACKSA2 
DSACKSA3 
DSAFLO 
DSAFL2 
DSAFL4 
DSAFL6 
DSALEW 


DSAPRM1 DS 
DSAPRM2 DS 
DSAPRM3 DS 
DSAPRI14 DS 
DSAPRM5 DS 
DSADATA DS 


Start of parameters and/or local variables 


F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
x 
x 
2 
F 
F 
F 
D 
D 
D 
D 
¥ 
1 
F 
F 
F 
F 
0 
FE 


Figure 68. DSA DSECT: anchored off of register 13. 
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12.% ROUTINE INVOCATION 


Each invocation of a Pascal/VS routine 


must acquire a dynamic storage area 
(DSA) Csee "Dynamic Storage Area™ on 
page 92). This storage is allocated 
and deallocated in a LIFO Clast 
in/first out) stack. If the stack 


should become filled to its capacity, a 
storage overflow routine will attempt 
to obtain another stack from which 
storage is to be allocated. 


Every DSA must be at least 144 bytes 
long; this is the storage required by 
Pascal/VS for a save area. The rou- 
tine's local variables and parameters 
are mapped within the DSA starting at 
offset 144. 


register Il 
into the routine's 
DSA, which is where the parameters 
passed in by the caller reside. This 
implies that the calling routine is 
responsible for allocating a portion of 
the DSA required by the routine being 
called, namely 144 bytes plus enough 
storage for the parameter list. This 
portion of storage is actually an 
extension of the caller's DSA. 


Upon entering a routine, 


points 144 bytes 


REG 13 


Parameters 


top of stack 


| save area 


| for calls| 
L-----_____ J 


Figure 69. 
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caller's save area 


local save area 
€144 bytes) 


---7 storage yet to be allocated 


| of any routines 
---------- | yet to be invoked 
[ reg i |---> | - oat nnn 
| parameter list to 
| be built for calls | 
| 


ed _| 144 bytes into this DSA 


to other routines | 


next stack top --> b----~-------------- 


Snapshot of stack and relevant registers at start of routine 


In general, the DSA of a routine con- 
sists of five sections: 


l. The local save area (144 bytes). 

2. Parameters passed in by the caller. 

3. Local variables required by the 
routine. 

4. A save area required by any routine 


that will be called. 


5. Storage for the largest parameter 
list to be built for a call. 


Sections 1] and 2 are allocated by the 
calling routine; sections 3, 4, and 5 
are allocated by the prologue of the 
routine to which the DSA belongs. 


register 13 points to 
the base of the DSA of the caller, 
which 1s where the caller's save area 
1s located. The new value of register 
13 may be computed by subtracting 144 
from the value in register l. 


Upon invocation, 


Figure 69 illustrates the condition of 
the stack and relevant registers imme- 
diately at the start of a routine. 


start of DSA of caller 


start of DSA of called routine 


144 bytes into DSA 


start of DSA of routine yet 
| to be called 


12.5 PARAMETER PASSING 


Pascal/VS passes parameters in several 
different ways depending on how the 
parameter was declared. In every case, 
register 1 contains the address of the 
parameter list. 


The parameter list is aligned on a 
doubleword boundary and each parameter 
1s aligned on its proper’ boundary. 
Addresses are aligned on word bounda- 
ries. 


This mechanism is indicated by use of 
the reserved word var in the routine 
heading. Actual parameters passed in 
this way may be modified by the invoked 
routine. 


The parameter list contains the address 
of the actual parameter. 


Routine Heading: 


procedure PROC(var I: INTEGER); 


Routine Invocation: 


PROCC(CJ); 


Parameter list: 


address of J 


Figure 70. Passing by Read/Write 


reference 


12.5.2 Passing by Read-Only Reference 


This mechanism is indicated by use of 
the reserved word const in the routine 
heading. Actual parameters passed in 
this way may not be modified by the 
invoked routine. 


The parameter list contains the address 
of the actual parameter. 


Routine Heading: 


procedure PROC(const I: INTEGER); 


Routine Invocation: 


PROC(J+5);3 


Parameter list: 


address of a memory location 
which contains the value of 
J+5, 


Figure 71. Passing by Read-only 


reference 


12.5.3 Passing by Value 


This mechanism is the default way in 
which parameters are passed. Parame- 
ters passed in this tiay are treated as 
if they are pre-initialized local 
variables in the invoked routine. Any 
modification to these parameters by the 
invoked routine will not be reflected 
back to the caller. If the actual 
parameter is a scalar, pointer, or set, 
then the parameter list will contain 
the value of the actual parameter. If 
the actual parameter is an array, 
record, space, or string, then the 
parameter list will contain the address 
of the actual parameter. In the latter 
case, the called procedure will copy 
the parameter into its local storage. 


Routine Heading: 
Procedure PROC( 


I: INTEGER; 
A : ALPHA); 


Routine Invocation: 


PROC(J, 'alpha’); 


Parameter list? 


value of J 
address of ‘alpha 


Figure 72. Passing by value 
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12.5.4 Passing Procedure or Function 
Paramaters 


For procedures or functions which are 
being passed as parameters, the address 
of the routine is placed in the parame- 
ter list. 


Note: As a Pascal/VS restriction, a 


routine passed as a parameter must not 
be nested within another routine. 


Routine Heading: 


procedure PROC( 
function X(Y: REAL): REAL }; 


Routine Invocation: 


PROC(COS); 


Parameter list: 


address of COS routine 


Passing 
parameters 


Figure 73. 
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12.5.5 Function Results 


Pascal/VS functions have an implicit 
parameter which precedes all specified 
parameters. This parameter contains 
the address of the memory location 
where the function result is to be 
placed. 


Routine Heading: 
function FUNC(C: CHAR): INTEGER; 


Routine Invocation: 


>= FUNCC'L')3 


Parameter list: 


~ address of returned integer 
result 
- value of character 'L'* 


Figure 74. Function results 


12.6 PROCEDURE/FUNCTION FORMAT 


Every Pascal/VS procedure or function 
js arranged in the order shown below. 
Register 2 is the code base register 
for the first 4K bytes of the routine 
body. If the routine occupies more 
than 4K bytes, register 10 is used as 
the code base register for the second 
4K bytes. If a routine exceeds 8K 
bytes of storage, the compiler will 
diagnose it as a terminal error. 


DEBUG control 
block 


entry prologue 


routine 


This must be 
<= 8192 
exit epilogue 


literals: 

ACONS, VCONS, 

and small literals 
1 to 16 bytes long 


STRING and SET 
literals longer 
than 16 bytes 


statement table 
Cif present) 


Figure 75. Routine format 
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le 


-7 PCNA 
PCWA = 
record 

PCWAENDS INTEGER; CxPtr to end of current stack *) 
PCWACURS INTEGER; (¥Ptr to start of current stack *) 
PCWASELF INTEGER; (xSelf identifing flag 'PCWA' *) 
PCWAFL2 PCWA_FLG_SET; (¥compiler runtime flag flags *) 
PCWARC(16) INTEGER; (xReturn code *) 
PCWAFILE PCBP; (¥pointer to open files *) 
PCWAPARM SYSPARMP; (¥parms string *) 
PCWAMODS DBCBP; (¥module header chain (debugger )) 
PCHWAESAP INTEGER; (¥ptr to external save area *) 
PCWADISP arrayl0..7] of DSAP;(*DISPLAY *) 
PCWADTMP INTEGER; (*¥Debugger temporary *) 
PCWARTNP REAL; (Xfloating point temporary *) 
PCWARO REAL; CX*GE00000000000000'X *) 
PCWA2231 REAL; (*"4E00000010000000'X *) 
PCWAMASK ALFA; €%'8040201008040201'X *) 
PCWAMFIX ALFA; (¥temp for first 8 bytes of DSA *) 
PCHASAVE array[1..36] of INTEGER; (Extra save area *) 
PCWAPLST arrayl1..16] of INTEGER; (parm list build *) 
PCWAFIN INTEGER; (¥Pointer to the HALT address *) 
PCWAALLCE INTEGER; (¥address of memory allocator *) 
PCWADLLCE INTEGER; (*Xaddress of memory deallocator *) 
PCWADFLT INTEGER; (¥default allocation size *) 
PCWACHKR INTEGER; (¥address of checker routine *) 
PCWADSAS INTEGER; (¥size of DSA in bytes (144) *) 
PCWANEMF INTEGER; (¥addr of memory fixup routine *) 
PCWAFLAG INTEGER; (¥Inter-language communication *) 
PCWAPICA ALFA; (¥PICA save area *) 
PCWASEED INTEGER; (¥seed of 'RANDOM’ function *) 
PCHAXEND INTEGER; (Xend of stack for SETMEM *) 
PCWAECNT INTEGER; (¥error count until abend *) 
PCWACHK INTEGER; (Xaddress of check routine *) 
PCHWACMEM INTEGER; (¥current memory in use *) 
PCWASTAX spacel20] af CHAR; (*STAX list form *) 
PCWAEOPN BOOLEAN; CXTRUE if PCWAEQUT is open *) 
PCWADINT BOOLEAN; CX¥TRUE if debugger initializied *) 
PCWATSO BOOLEAN; C¥TRUE if TSO environment *) 

BOOLEAN; (*¥reserved *) 
PCWAATTN INTEGER; (¥address of attn handling *) 
PCWAFCNT INTEGER; (Xcent of files without DDnames x) 
PCWASIZE INTEGER; (¥size of initial alloc for pcwa*) 
PCWADINA INTEGER; (¥Address of AMPDINIT or nil *) 
PCWABOPA INTEGER; (XAddress of AMPDIBOP or nil *) 
PCWABBA INTEGER; (*Address of AMPDIBB or nil *) 
PCWAERAD INTEGER; (%Error address - CHKR or DIAG *) 
PCWAFSTK INTEGER; (¥Chain of free dsa stack elems *) 
PCWAENDA INTEGER; (*Address of AMPDEPIL or nil *) 
PCWAPROC(1200) spacel64] of CHAR;(*Work area for PROCESS *) 
PCWAUSER( 1264) spacel64] of CHAR;(*Area reserved for user *) 
PCWAEOUT( 1328) TEXT; CXERROR OUTPUT PCB *) 
PCWAOUT(1392) PCB; (CXOUTPUT PCB *) 
PCWAIN(C1456) PCB; CXINPUT PCB *) 
PCWAPDAT(1520) STRING(254); (¥actual parm list after format *) 
PCWAERSAC 1776) SPIEDSA; (¥savearea for error routines *) 
PCWAPIE PSW; (XPSW from PIE *) 
PCWASPIE INTEGER; 
PCWAMEMAC1984) 

array[MEM_LEVELS] of SPACE_DESC; 

(¥space for memory allocator *) 
end; 
Figure 76. Pascal Communications Work Area 


The Pascal Communications Work Area is 
always addressable from 


Th 


98 


register 12. 


is area of memory is used to contain 
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global information about the execution 


of the program. 


J 


The area is divided into two parts, 
each is 2048 bytes in length. The 
first part contains data that needs to 
be addressable; the second is composed 
of the small routines used to augment 
the generated code (such as string con- 
catenation). Figure 76 on page 98 
shows the structure of the first half 
of the PCWA. Each field is described 


below: 

PCHWAENDS 
a pointer to the end of the current 
DSA stack. 

PCHACURS 
a pointer to the top of the current 
DSA stack. 

PCHASELF 
a self defining field that is set 
to "PCWA'. 

PCHAFL2 
flags used to enable runtime fea- 
tures. 

PCHARC 


the value assigned by the last exe- 
cution of RETCODE or zero if 
RETCOQDE has not been called. 


PCHAFILE 
a pointer to the first file (PCB) 
that has been opened but not 
closed. 


PCHAPARM 
a pointer to the parameter string 
passed to the program. 


PCHAMODS 
a pointer to the head of a chain 


that links modules together = as 
required by the interactive 
debugger. 

PCHAESAP 


contains the pointer to the save 
area for the caller of the Pascal 
program. 


PCWADISP 
the runtime display - a stack of 8 
base registers that contains the 
address of the DSAs that are avail- 
able to the executing routine. 


PCWADTMP 


a temporary used by the interactive 
debugger. 


PCNARTMP 
a temporary used jin_- conversion 
between floating point numbers and 
integers. 


PCWARO 
a constant that contains the float- 
ing point value zero. 


PCWA2231 


a constant that contains the float- 
ing point value of 2 raised to the 
31 power minus 1 in an unnormalized 
form. 


PCWAMASK 
eight bytes that contain masks 
which are used in set operations. 


PCWAMFIX ; 
a temporary used during runtime 
error recovery. 


PCWASAVE 
used as a register save area when a 
program error or checking error 
occurs. 


PCHAPLST 
used when a program error or check- 
ing error occurs to build a parame- 


ter list in order to invoke a 
recovery procedure. 
PCWAFIN 


address of a procedure which termi- 
nates the program no matter what 
state it is in. This procedure 15 
normally HALT. 


PCWNAALLC 
address of a system dependent rou- 
tine which is responsible for allo- 
cating blocks of storage. 


PCNADLLC 
address of a system dependent rou- 
tine which releases blocks of stor- 
age. 


PCWADFLT 
the default number of bytes of 
storage that the allocation rou- 
tine will allocate when called. 


PCNACHKR 
the address of the routine which is 
invoked to diagnose ae checking 
error. 


PCHNADSAS 
the size of the smallest DSA. Its 
value is 144. 


PCHAMEMF 
contains the address of the memory 
fixup routine, which is called when 
the DSA stack overflows. 


PCHAFLAG 
a flag used when’ communicating 
between different languages. 


PCHAPICA 
is used for a save area for the 
PICA. 


PCWASEED 
contains the current seed for the 
RANDOM function. 


PCWAXEND 
contains the true end of the cur- 
rent stack, PCWAENDS may not be 
correct, PCWAENDS is made incor- 
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rect in order to force a call to 
AMPXMEMF so that a DSA may be ini- 
tialized (if SETMEM option is ena- 
bled). 


PCHAECNT 
contains the number of non-fatal 
errors which will be tolerated 
before the program will be abended. 


PCHACHK 
contains the address of the routine 
which gains control when a checking 
error occurs. This routine is nor- 
mally AMPXCHKR. 


PCHACHEM 
defines which heap is in use, nor- 
mally the value is one, which indi- 
cates that the users’ heap is 
available. 


PCHASTAX 
contains the list form of the STAX 
macro. 


PCWNAEOPN 
a flag that indicates whether the 
error file, PCWAEQUT has’ been 
opened. 


PCWADINT 
is a flag indicating whether 
AMPDCOM (debugger common area) has 
been initialized yet. 


PCHATSO 
is a flag indicating whether we are 
executing in a TSQ environment. 


PCHAATTN 
contains the address of the termi- 
nal attention routine. 


PCNAFCNT 
contains the number of the next 
generated DDname. 


PCHASIZE 
contains the size of the initial 
allocation of the PCWA. 


PCWADINA 
contains the address of the 
AMPDINIT routine, which initial- 
izes the interactive debugger. 


PCHABOPA 
contains the address of the 
AMPDIBOP routine, which is invoked 
at each procedure entry when the 
debugger is active. 
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PCHABBA 
contains the address of the AMPDIBB 
routine, which is invoked at each 
basic block of code when the 
debugger is active. 


PCHAERAD 
contains the offending address 
when a checking error or a program 
error occurs. 


PCHAFSTK 
points to the beginning of a chain 
of all free blocks of storage. 


PCHAENDA 
address of the AMPDEPIL routine, 
which is invoked from the epilogue 
of each routine when the debugger 
is active. 


PCHAPROC 
reserved for future use. 


PCHAUSER 
reserved for Pascal/VS users. 


PCNAEQUT 
the file (PCB) to where execute 
time error diagnostics is sent. 


PCNAOUT 
the PCB for the standard file OUT- 
PUT. 


PCHWAIN 
the PCB for the standard file 
INPUT. 


PCHAPDAT 
a string that contains the passed 
in symbolic parameter list after it 
it has been formatted. 


PCWAERSA 
a small save area used when a SPIE 
exit 1s invoked. 


PCNAPIE 
a place to save certain information 
from the SPIE. 


PCNASPIE 
spie work area 


PCHAMEMA 
descriptors used to control the 
allocation and deallocation poli- 
cies of dynamic storage and I/0 
buffers. 


JI 


12.8 PCB - PASCAL FILE CONTROL BLOCK 


PCB = 
record 

PCBFILEP 
PCBFLAGS 
PCBELEM 
PCBNAME 
PCBCODE : 
PCBBUFIDX: 
PCBBUFLEN: 
PCBBUFP : 
PCBOPTP 
PCBLAST 
PCBNEXT 
PCBICBP 
PCBSTART 
PCBSTAT 


BUFFERP; 
FILEFLAGS; 
HALFWORD; 
ALFA; 
MagicNumber; 
HALFWORD; 
HALFWORD; 
BUFFERP; 
OPTP; 
PCBP; 
PCBP; 
ICBP; 
HALFWORD; 
IOSTATUS; 
CHAR; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 


end; 


Figure 77. 


Every Pascal/VS file is represented by 
a Pascal control block (PCB) An PCB is 
composed of 64 bytes of space. 


The fields are defined as: 
PCBFILEP 


points to 
the file. 


the current element of 


PCBFLAGS 
set of file flags (16 bits). The 
flags are: 

FINPUT 


indicates that file is 


open for input. 


FOUTPUT indicates that 
open for output. 


file is 


FTEXT the file is of type TEXT. 

FEOLN end-of-line condition is 
true. 

FEOF end-of-file condition is 
true. 

FFIXED file has fixed length 
records. 

FINTER the file was opened as an 
interactive file. 

FSTATUS the user will check 
PCBSTAT and report the 


errors. 
FFEOL end-of-line condition is 
true, but not as a result 
of READLN. 


(*Pascal Control Block 


(¥file pointer 

(¥file flags 

(¥length of file component 
(Xfile-variable name 
CXinitialization test 
(*%buffer index 

(*buffer length 

(Xpointer to start of buffer 
(¥ptr to OPTIONS descriptor 
(¥link to last PCB of chain 
(¥link to next PCB of chain 
(¥ptr to Implem. Ctrl Block 
(Xinitial value of PCBBUFIDX 
(¥status of last open 
(¥<not-used> 

(¥<not-used> 

(*¥<not-used> 

(¥<not-used> 

C¥<not-used> 


Pascal file Control Block (PCB) format 


FOPTS an options string was 
specified in the last 
open. 

PCBELEM 
the length of one component of the 
file. 

PCBNAME 
the DDNAME of the file. 

PCBCODE 


an encoded value that is used to 
test whether the PCB has been ini- 
tialized; this is not required for 
files which are local variables but 
is needed for files that are allo- 
cated dynamically CNEW). 


PCBEUFIDX 
byte index 
(PCBBUFP). 


PCBBUFLEN 
total length of buffer in bytes. 


PCBBUFP 
address of the beginning of the 
buffer. 


PCBOPTP 
address of the control block that 
describes the information passed 
through the options string as the 
file is being opened. The proce- 
dures which open a file and pass an 


into the I/0 buffer 


options string are: RESET, 
REWRITE, UPDATE, TERMIN, TERMOUT, 
PDSIN or PDSOUT. 

PCBLAST 
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back chain of currently open PCBs. 


PCBNEXT 


forward chain of currently open 
PCBs. 


PCBICBP 


102 


points to a system dependent con- 
trol block to be used by the lowest 
level of interface to the I0 access 
methods. 
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PCBSTART 


contains the initial value of 
PCBBUFIDX, which is used to deter- 
mine if the current buffer contains 
any data that needs processing pri-~ 
or to closing the file. 


PCBSTAT 


status of the file. 


J 


c 


It is sometimes desirable to invoke 
subprograms (procedures) written in 
other programming langauges: this is 
useful to obtain services not available 
directly in Pascal/Vs. It is also 
desirable to have a Pascal/VS procedure 
called from a non-Pascal program: this 
would allow you to take advantage of 
Pascal in an existing application with- 
out rewriting the entire application. 
This chapter will discuss the options 
available to you and what you must do 
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13.0 INTER LANGUAGE COMMUNICATION 


We can divide inter-language communi- 
cation into two classes: 


° The Pascal procedure is the calling 
procedure and the non-Pascal pro- 
cedure is being called. 


° The Pascal procedure is called from 
a non-Pascal calling procedure. 
Your options are summarized in 

Figure 78. 


in order to have this flexibility. 


fF Pascal as the calling language Pascal as the called language 


FORTRAN 
Define procedures and functions Use a call statement in FORTRAN 
in Pascal using the FORTRAN to call the Pascal procedure. 
directive. This enables you to The Pascal procedure must be 
call a subprogram written in defined with the MAIN directive. 
FORTRAN. After the last call to a Pascal 
procedure you must call PSCLHX 
(Pascal halt execution). 
Assembler 
Define procedures and functions Use a V-type constant in the 
in Pascal using the FORTRAN or Assembler routine to define the 
the EXTERNAL directive. If you Pascal entry point. You must 
use EXTERNAL you will be able to |define the Pascal procedure as 
specify an arbitary Pascal EXTERNAL, MAIN, or REENTRANT. 
parameter list. After the last call to a Pascal 
procedure you must call PSCLHX. 
COBOL 
Define procedures and functions Use a call statement in COBOL 
in Pascal using the FORTRAN to call the Pascal procedure. 
directive. This enables you COBOL should be compiled with 
to call a subprogram written in the "NODYNAM' option and the 
COBOL. You may desire to call call must be a call of a 
ILBOSTPO prior to calling a literal. The Pascal procedure 
COBOL program. Consult the must be defined with the MAIN 
COBOL Programmer's guide for directive. After the last call 
details. to a Pascal procedure you must 
call PSCLHX. 
PL/I 
Define procedures and functions Use a call statement in PL/I to 
in Pascal using the FORTRAN call a Pascal procedure. The 
directive. This enables you PL/I procedure should specify the 
to call a subprogram written in Pascal as an EXTERNAL. After the 
PL“I. You should define the PL/I |last call to a Pascal procedure 
procedure with the FORTRAN you must call PSCLHX. 
option. Consult the PL/I OS 
Programmer's guide for further 
details. 
Figure 78. Inter Language Communication 
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The details of Pascal/VS linkage con- 
ventions are discussed in the chapter 
"Code Generation for the IBM/370" on 
page 91. You should familiarize your- 
self with this section - especially if 
you plan to use Assembler language. 


13.1 LINKING TO ASSEMBLER ROUTINES 


Writing an Assembler language routine 
for Pascal/VS is a simple operation 
provided that a set of conventions are 
carefully followed. There are two rea- 
sons for the need for these 
conventions: 


1. Pascal/VS parameter passing con- 
ventions: As described in “"Parame- 
ter Passing" on page 95, Pascal/VS 
parameters are passed in a variety 
of ways, depending on their attri- 
butes. 


2. Ihe Pascal/VS environment: This is 
an arrangement of registers and 
control blocks used by Pascal/VS to 
handle storage management and run- 
time error recovery. (see "Regis- 
ter Usage” on page 91.) 


13.1.1 Writing Assembler Routine with 
Minimum Interface 


Writing an Assembler routine with the 
minimum interface requires the least 
knowledge of the runtime environment. 
However, such a routine has the follow- 
ing deficiencies: 


CSECT 

ENTRY procname 
procname DS OH 

STM 14,12,12¢€13) 
BALR' basereg,0 
USING *,basereg 

ST 13,SAVEAREAt4 
LA 13,SAVEAREA 


anyname 


° It may not call ae Pascal/VS 
routine; 
° It must be non-recursive; 


° If a program error should occur 
Csuch as divide by zero), the Pas- 
cal/VS runtime environment will 
not recover properly and the 
results will be unpredictable. 


When a Pascal/VS program invokes an 
Assembler language routine, register 
14 contains the return address and reg- 
ister 15 contains the starting address 
of the routine. The routine must fol- 
low the System/370 linkage conventions 
and save the registers that will be 
modified in the routine. It must also 
save any floating point register that 
is altered in the routine. 


Upon entry to the routine, register 13 
will contain the address of the regis- 
ter save area provided by the caller, 
and register 1 will point to the first 
of a list of parameters being passed 
Cif such a list exists). Once the reg- 
ister values are stored in the caller's 
save area, the save area address (reg- 
ister 13) must be stored in the 
backchain word in a save area defined 
by the Assembler routine’ itself. 
Before returning to the Pascal/VS rou- 
tine, the registers must be restored to 
the values that they contained when the 
Assembler routine was invoked. 


If you insert your Assembler 
instructions at the point indicated in 
the skeletal code shown in Figure 79, 
your Assembler routine can be called 
from a Pascal/VS routine and you need 
have no Knowledge of the Pascal/VS 
environment. 


declare routine name as an entry point 
entry point to routine 
save Pascal/VS registers in Pascal/VS save area 
establish base register 


store Pascal/VS save area address 
load address of local save area 


body of Assembler routine 


restore the floating point registers if 
they were saved 


13,413) 
14,12,12(€13) 


14 
20F'0* 


B 
SAVEAREA 2 


Figure 79. 
invoked from Pascal/VS 
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Minimum interface to an Assembler 


restore Pascal/VS registers 


return to Pascal/VS 
local save area 


routine: skeletal code to be 


13.1.2 Writing Assembler Routine 
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General Interface 


procname PROLOG LASTREG=r,VARS=n, PARMS=p 


YES 
EPILOG prop=| ] 
NO 


where: 


procname is the entry point name of the routine. 


LASTREG is a number between 3 and 12, inclusive, which indicates the 
highest register to be modified by the routine between 3 and 12 


VARS is the 
passed-in parameters. 


number of bytes required for any 


local data, including 


PARMS is the number of bytes required for the largest parameter list 


to be built within the routine. 


DROP indicates whether register 2 is to 


be dropped as a base regis- 


ter after the epilogue is executed. 


defaults: 
LASTREG=12 
VARS=0 
PARNS=0 


DROP=YES 


Figure 80. PROLOG/EPILOG macros 


If an Assembler routine has at least 
one of the following characteristics, 
the general interface must be used: 


° It calls a Pascal/VS routine; 
° It is recursive; 


° Program errors must be intercepted 
and diagnosed by the Pascal/VS run- 
time environment. 


Two Assembler macros are available 
which are used to generate the prologue 
and epilogue of an Assembler routine 
with a general Pascal/VS interface. 
The macro names are PROLOG and EPILOG 
and their forms are described in the 
figure above. 


The PROLOG macro preserves any regis- 
ters that are to be modified and allo- 
cates storage for the DSA. It also 
includes code to recover from a stack 
overflow and program error. The label 
of the macro is established as an ENTRY 
point; register 2 is established as the 
base register for the first 4096 bytes 
of code. 


Upon entering a routine prior to exe- 
cuting the PROLOG code, the following 
registers are expected to contain the 
indicated data: 


e Register 1 - address of the parame- 
ter list built by the caller, which 


is 144 bytes into the DSA to be 
used by the called routine. 


° Register 12 - address of the Pascal 
Communication Work Area (PCWA). 


° Register 13 - address of the DSA of 
the calling routine. 


° Register 14 - return address. 


e Register 15 - address of the start 
of the called routine. 


Upon executing the code generated by 
the PROLOG macro, the registers are as 
follows: 


e Register 0 - unchanged 

e Register 1 - address of an area of 
storage in which parameter lists 
may be built to pass to other rou- 
tines. 

° Register 2 - base register for the 
first 4096 bytes of code within the 
invoked routine. 

° Registers 3 through 11 - unchanged. 

° Register 12 - unchanged 

° Register 13 - address of the local 


DSA of the routine just invoked. 
The first 144 bytes is the register 
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save area for the invoked routine. 
Following the save area is where 
the parameters passed in by the 
caller are located. Immediately 
after the parameters is storage for 
local variables followed by a 
parameter list build area. 


° Register 14 - unchanged. 

° Register 15 - unpredictable. 
The EPILOG macro restores the saved 
registers, then branches back to the 
calling routine. In order for the epi- 


logue to execute properly, register 13 
must have the same contents as was 


established by the prologue. The macro 
will cause register 2 to be dropped as 
a base register unless DROP=NO is spec- 


ified. 


The contents of the floating point reg- 
isters are not saved by the PROLOG mac- 
ro. If the floating point registers 
are modified, they must be restored to 
their original contents prior to 
returning from the routine. 


A skeleton of a  §general-interface 
Assembler language routine which may be 
called by a Pascal/VS program is given 
below. 


The following names have the indicated meaning 


"csectnam' is the name of the csect 


*parmsize’ 


in which the routine resides 
"procname’ is the name of the routine. 
is the length of the passed-in parameters 


*lastreg' is the highest register Cup to 12) which will be modified 
*plist' is the length of the largest parameter list required for calls 
to other routines from “procname" 


sectnam CSECT 
¥ 


¥ 
¥ 
¥ 
¥ 
* 'varsize' is the storage required for the local variables 
¥ 
¥ 
¥ 
¥ 
c 


procname PROLOG LASTREG=lastreg,VARS=varsizetparmsize,PARMS=plist 


<= 


EPILOG 
END 


Figure 81. 
invoked from Pascal/VS 
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General interface to an Assembler 


insert code here 


routine: skeletal code to be 


c 


13.1.3 Receiving Parameters From Rou- 
tines 


Parameters received from a Pascal/VS 
routine are mapped within a list in the 
manner described in "Parameter 
Passing" on page 95. At invocation 
register 1 contains the address of this 
list. 


If the general interface (sea "Writing 
Assembler Routine with General Inter- 
face" on page 105) is used in writing 
the Assembler routine, passed-in 
parameters start at offset 144 from 
register 13 after the prologue has been 
executed. 


Se Calling Pascal/VS Routine from 
Assembler Routine 


An Assembler language routine that was 
invoked from a Pascal program may call 
a Pascal procedure provided that: 


° the general Pascal/VS interface 
Was incorporated within the Assem- 
bler routine, and 


° the Pascal/VS routine to be called 
is declared as axternal. 


See Figure 83 on page 108 as an 
example. 


If the Assembler routine was not 
invoked from a Pascal/VS routine, then 
the Pascal/VS run time environment must 
be set up prior to entering the 
Pascal/VS routine. To do this, the 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


Pascal procedure must be declared with 
the MAIN or REENTRANT directive. (See 
Figure 85 on page 110 for an example.) 
When such a procedure is invoked for 
the first time, a minimum environment 
is created. On subsequent calls, this 
environment is restored prior to exe- 
cuting the procedure. To remove the 
environment (free stack space, etc.), 
the procedure PSCLHX is provided. 


Prior to making the call to a Pascal 
procedure from Assembler’ language, 
register 1 must contain the value 
assigned to it within the PROLOG code. 
Parameters to be passed are stored into 
appropriate displacements from regis- 
ter 1 as described in “Parameter 
Passing" on page 95. 


At the point of call, register 12 must 
contain the address of the Pascal Com- 
munications Work Area CPCWA). This 
will be the case if the Assembler rou- 
tine was invoked from a Pascal/VS rou- 
tine and has not modified the register. 


To perform the call, a V-type constant 
address of the routine to be called is 
loaded into register 15 and then the 
instruction "BALR 14,15' is executed. 


3.1.5 ample Assembler utine 


In Figure 82 on page 108 and Figure 83 
on page 108, a sample Assembler routine 
is listed which may be called from a 
Pascal/VS program. This routine exe- 
cutes an OS TPUT macro to write a line 
of text to a user's terminal. 
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type 
BUFINDEX 
BUFFER 


0..80; 
packed array([1..860] of CHAR; 


CXthis routine is ij 


procedure TPUT( 
const BUF : 
LEN 
EXTERNAL; 


BUF 
BUF 


n assembly language) 


FER; 
INDEX); 


C(Xthis routine is called from the assembly language routine) 


procedure ERROR( 
RETCODE: 
const MESSAGE: 
ENTRY; 


begin 
WRITELNCOUTPUT, M 
end; 


Figure 82. Pascal/VS description 


tine is shown in Figu 


TIOSEG 
TPUT 
¥ 


CSECT 
PROLOG LASTREG=4,VARS=8 


3,144(€13) 
4,148(013) 
(39,04) 
15,15 
TPUTRET 


15,0¢€1) 

3, TPUTMSG 
3,401) 

15, =VCERROR) 
14,15 


EPILOG 
be 

DC 
END 


¥ 
TPUTRET 
x 


TPUTMSG 
TPUTTEXT 


AL2CL*TPUTTEXT) 
C'TPUT ERROR’ 


Figure 83. Sample Assembler 


Pascal/VS routine and, 


tine. 
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routine: 


INTEGER; 
STRING); 


ESSAGE, °", RETURN CODE RETCODE) 


of Assembler routine: the Assembler rou- 


re 83. 


only registers 3 and 4 are modified 


load address of "BUF' parameter 
laod value of "LEN parameter 
write content of "BUF' to terminal 
check return code 

if no error then return 

build parm list for call to ‘ERROR’ 
assign to 'RETCODE' parameter 

load address of message 

assign to 'MESSAGE' parameter 

load address of ‘'ERROR' procedure 
call ‘ERROR'* 


halfword length of string 
message text 


invoked by a 
Pascal/VS rou- 


this routine is 
within itself, invokes a 


c 


13.1.6 Calling a Pascal/vs Main Pro- 
gram from Assembler Routine 


A Pascal/VS program may be invoked from 
an assembler language routine by load- 
ing a V-type address constant of the 
main program name into register 15 and 
executing a BALR instruction with 14 as 
the return register. 


Program to be called: 


program test; 


begin 


end. 


The convention employed in passing 
parameters to a program is dependent on 
whether you are running under CMS or 
under TSO (or OS Batch). Both con- 
ventions require that register 1 be set 
to the address of the parameter data. 


Assembler instructions to perform the call under CMS: 


LA. 1,PLIST 
15,=VCTEST) 
14,15 


OF 
DC CL8"TEST' 
bc CL8' token 
pe CL8' token 


DC | CL8'token 
DC 8X"FFt 


Assembler instructions to perform the call under VS2 (Cand TSO): 


LA. .1,PLIST 
15,=VCTEST) 
14,15 


OF 
DC XL1'80' 
DC AL3CPARMS) 


DC FL2"*length! 


set first bit of address 


length of parameter string 
pc C*parm string goes here' 


Figure 84. Example of calling a Pascal/VS program from an assembler routine 
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SEGMENT SQUARE; 
procedure SQUARE(var X : REAL); 
MAIN; 
procedure SQUARE; 
begin 
X :=> X * X 
end; 


CSECT 
USING *,15 establish addressabi lity 
STM 14,12,12(13) save callers registers 
ST 13,SAVEAREA+4 save address of callers save area 
BALR 
USING establish addressability 
LA AVEAREA set new save area 
LA Istl REG 1 POINTS TO PARAMETER LIST 
VC SQUARE) load address of Pascal procedure 
5 call SQUARE 
REG 1 POINTS TO PARAMETER LIST 
LOAD ADDRESS OF PASCAL PROCEDURE 
call SQUARE 
13,SAVEAREA+4 return 
LM 14,12,12(¢13) 
BR 14 
PLIST1 DC A(X) PARAMETER LIST 
» 4 DC D'4.0' 
PLIST2 DC ACZERO) PARAMETER LIST 
ZERO Dc Frg’ 
SAVEAREA DS 18F 
END 


Figure 85. Example of Assembler as the caller to Pascal/VS 
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program FROMPSCL; (*¥Pascal program heading 
¢ procedure SUM(var I : INTEGER; 
const J : INTEGER); 


FORTRAN; 
> INTEGER; (*Define two local variables 


(¥Set running sum to zero 
1 to 10 do (¥loop through ten values 


»J)5 (¥compute the next sum 
WRITELN('The current running sum is ',1:0); 

end; 

A C¥FROMPSCL 


CSECT 
USING *,15 establish addressability 
14,12,12¢€13) save callers registers 
a ai as save address of callers save area 
,0 
establish addressability 
set new save area 
get address of I 
get I 
get address of J 
I=I+J 
return the new value of I 
EAREAt4 return 
14,12,12¢€13) 


MAW EWR K 
Wee we he he We 
~ CORGDOr U 


B 
SAVEAREA 


Figure 86. Example of Pascal/VS as the caller to Assembler 


Inter Language Communication 111 


13.2 PASCAL/VS AND FORTRAN 


Communication between FORTRAN and 
Pascal/VS is accomplished by use of the 
MAIN directive CFORTRAN to Pascal/VS) 
and the FORTRAN directive (Pascal/VS to 
FORTRAN). 


13.2.1 Pascal/vsS as the Caller to 
FORTRAN 


program FROMPSCL; 
procedure SUM(var I 
const J 


INTEGER; 


FORTRAN; 
var 
I,J > INTEGER; 
begin 
Ioiz 


>= 0; 
for J += 1 to 10 do 
begin 


SUMCI,J);3 


,J 
WRITELNC'The current running 


end; 
end . 


SUBROUTINE SUMC(I,J) 
I=I+4J 

RETURN 

END 


INTEGER); 


Data may be passed between FORTRAN and 
Pascal/VS through the parameter list or 
FORTRAN COMMON. If you choose to COM- 
MON specify the name of the COMMON 
block as a Pascal/VS daf variable. 


(*Pascal program heading 


(XDefine two local variables 


(XSet running sum to zero 
(¥loop through ten values 


(¥compute the next sum 
sum is ',1:0)3 


C¥FROMPSCL 


Figure 87. Example of Pascal/VS as the caller to FORTRAN 


The FORTRAN directive instructs 
Pascal/VS to utilize exactly the same 
calling conventions employed by 
FORTRAN. This restricts the form of 
the parameter list, namely you may not 
pass a parameter by value; you may pass 
a parameter by var or by const. If you 
choose the latter machanism, the 
FORTRAN subprogram must not modify the 
parameter. 
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Execution errors that occur during the 
exacution of the FORTRAN program will 
be handled by the Pascal runtime sup- 
port routines. If you desire to enable 
the error handling of FORTRAN” you 
should invoke "VSCOM#" at the appropri- 
ate entry point. Consult the VS 


FORTRAN Application Programming Guide 
$C26-3985 for details 


J 


13.2.2 FORTRAN as the Caller to Pas- 
cal/Vs 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


Pascal/VS procedure to be called from FORTRAN program: 


SEGMENT SQUARE; 
procedure SQUARECVvar X : 


REAL); 


MAIN; 
procedure SQUARE; 
begin 
X == X¥ *X 
end;. 


FORTRAN program that invokes Pascal procedure: 


AREAL = 4.0 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL ) 
PRINT 1, AREAL 
FORMAT (F10.4) 
TERMINATE PASCAL ENVIRONMENT 
CALL PSCLHX(0) 
STOP 
END 


Figure 88. 


Pascal/VS permits a FORTRAN program to 

call a Pascal procedure as a 

subprogram. To do this you specify the 

econ procedure with the MAIN direc- 
ive. 


The first invocation of any procedure 
with a MAIN directive will cause Pascal 
to establish the appropriate environ- 
ment for its execution. Subsequent 


Example of FORTRAN as the caller to Pascal/VS 


calls will use the same environment 
that was set up on the first call. 


It is your responsibility to clean up 
the Pascal environment; this is done by 
invoking the procedure "PSCLHX". 


If Pascal is not the main program, then 


Pascal will not attempt to handle any 
errors during execution. 
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13.3 PASCAL/VS AND COBOL 


Communication between COBOL and 
Pascal/VS is accomplished by use of the 


13.3.1 Pascal/vS as the Caller to 
COBOL 


MAIN directive (COBOL to Pascal/VS) and 


the FORTRAN directive (Pascal/VS to 
COBOL). 


Pascal program that calls a COBOL subprogram: 


program FROMPSCL; 


procedure SUMX(var I : INTEGER; 
const J : INTEGER); 


FORTRAN; 
> INTEGER; 


t= 1 to 10 do 
SUMX(I,J)3 


(*Pascal program heading 


(¥Define two local variables 


(¥Set running sum to zero 
(Xloop through ten values 


(¥compute the next sum 


WRITELN(C'’The current running sum is *,I:1)3 
end; 


COBOL subprogram: 


rd eae ping: 
PROGRAM-ID. SU 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-CONPUTER. IBM-370. 
DATA DIVISION. 

LINKAGE SECTION. 


CXFROMPSCL 


77 I PIC IS 9399999999 USAGE IS COMPUTATIONAL. 
77 J PIC IS 999999999 USAGE IS COMPUTATIONAL. 


PROCEDURE DIVISION USING I J. 
ADD J TO I. 
GOBACK. 


Figure 89. Example of Pascal/VS as the caller to COBOL 


The FORTRAN directive instructs 
Pascal/VS to utilize exactly the same 
calling conventions employed by FOR- 
TRAN which is also equivalent to COBOL. 
This restricts the form of the parame- 
ter list, namely you may not pass a 
parameter by value; you may pass a 
parameter by var or by const. If you 
choose the latter machanism, the COBOL 
coe eaean must not modify the parame- 
er. 


Execution errors that occur during the 


execution of the COBOL program will be 
handled by the Pascal runtime support 
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routines. Pascal will not issue a call 
to ILBOSTPO (which sets up the COBOL 
error recovery). You may call this 
routine if you would like the "STOP 
RUN" statement of COBOL to treat the 
Pascal calling procedure as a main 
entry point of a COBOL program. Con- 
sult the OS/VS COBOL Compiler and 
Library Programmer's Guide, S$C28-6483 
for details. 


A COBOL program which is communicating 
with Pascal/VS must not use the dynamic 
loading feature. 


J 


c 


13.3.2 COBOL as the Caller to 
Pascal/vS 
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Pascal procedure that is to be called from COBOL: 


SEGMENT SQUARE; 
procedure SQUARE(var X : REAL); 
MAIN; 
procedure SQUARE; 
begin 
X := X * X 
end; 


COBOL program which calls a Pascal procedure: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. TOS. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


77 AREAL USAGE IS COMPUTATIONAL-2. 
77 AZERO USAGE IS COMPUTATIONAL PIC IS 999999999. 


PROCEDURE DIVISION. 
MOVE 2 TO AREAL. 
CALL "SQUARE" USING AREAL. 
DISPLAY AREAL. 
MOVE 0 TO AZERO. 
CALL "PSCLHX" USING AZERO. 
MOVE 0 TO RETURN-CODE. 
STOP RUN. 


Figure 90. Example of COBOL as the caller to Pascal/VS 


Pascal/VS permits a COBOL program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc 
tive. 


The first invocation of any procedure 
with a MAIN directive will cause Pascal 
to establish the appropriate environ- 
ment for its execution. Subsequent 


calls will use the same environment 
that was created in the first call. 


It is your responsibility to clean up 
the Pascal environment, this is done by 
invoking the procedure "PSCLHX". If 
Pascal is not the main program, then 
Pascal will not attempt to handle any 
errors during execution. 
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13.4 PASCAL/VS AND PL/I PL/I). In addition, you may use the 
REENTRANT directive instead of the MAIN 
directive in order to develop a REEN- 

Communication between PL/I and TRANT call to Pascal. 

Pascal/VS is accomplished by use of the 

MAIN directive (PL/I to Pascal/VS) and 

the FORTRAN directive (Pascal/VS to 


13.4.1 Pascal/VS as the Caller to 
PL/Y 


Pascal program which calls a PL/I procedure: 
program FROMPSCL; (*¥Pascal program heading 
procedure SUM(var I : INTEGER; 
const J =: INTEGER); 
FORTRAN; 
> INTEGER; (*Define two local variables 


; (¥Set running sum to zero 
7= 1 to 10 do (Xloop through ten values 


SUMCI,J)3 (¥compute the next sum 
WRITELNC'The current running sum is ',1I:0)3 


CXFROMPSCL 


end; 


PL/I procedure that is invoked from Pascal: 


SUM: PROC (I,J) OPTIONSCFORTRAN); 
DCL (I,J) FIXED BINARY(31,0); 
I =I+J3 
RETURN; 
END; 


Figure 91. Example of Pascal/VS as the caller to PL/I 


The FORTRAN directive instructs The FORTRAN directive restricts the 


Pascal/VS to utilize exactly the same form of the parameter list, namely you 
calling conventions employed by FOR- may not pass a parameter by value; you 
TRAN. PLZI will employ FORTRAN calling may pass a parameter by either var or 
conventions if "FORTRAN" is specified const. If you choose to latter mech- 
in the OPTIONS clause. Consult the anism, the PL/1 procedure must not 
PL/I Programmer's Guide, modify the parameter. 

$C33-00370CMS) and $C33-0006(0S) for 

details. 
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13.4.2 PL/I as the Caller to 
(S Pascal/V5 


| Pascal procedure which is called from PL/I: 


SEGMENT SQUARE; 
procedure SQUARE(var X : REAL); 
MAIN; 
procedure SQUARE; 
begin 
X := X *#X 
end; 


| PL/I program which calls a Pascal procedure: 


TOS@: PROC OPTIONS(MAIN); 
DCL SQUARE ENTRY EXTERNAL; 
DCL PSCLHX ENTRYCFIXED BINARYC31,0)) EXTERNAL; 
DCL ZERO FIXED BINARY(31,0); 
AREAL = 4.03 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 


é PUT LISTCAREAL); 
¢ ZERO = 0; 
CALL PSCLHX(ZERO); 


END; 


Figure 92, Example of PL/I as the caller to Pascal/VS 
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Pascal procedure which is called from a reentrant PL/I program: 


SEGMENT SQUARE; 
procedure SQUARECVar E 
REENTRANT>; 
procedure SQUARE; 

begin 
X := X * X 
end; 


INTEGER; 


var X REAL); 


Reentrant PL/I program which invokes a Pascal procedure: 


TOSQ@: PROC OPTIONSC(CMAIN REENTRANT); 
DCL SQUARE ENTRY EXTERNAL; 


DCL PSCLHX ENTRYCFIXED BINARY(31,0)) EXTERNAL; 


DCL SAVE FIXED BINARY(C31,90); 
AREAL = 4.0; 

SAVE = 0; 

CALL SQUARECSAVE, AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE, AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE, AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE, AREAL); 
PUT LISTCAREAL); 

CALL PSCLHXC(SAVE); 

END; 


Figure 93. Example of 


TRANT directive 


Pascal/VS permits a PL/I program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc- 
tive. 


The first invocation of any procedure 
that has a MAIN directive associated 
with it will cause Pascal to establish 
the appropriate environment for its 
execution. Subsequent calls will use 
the same environment that was created 
on the first call. 


A call to PSCLHX will dispose of the 
Pascal environment and release all mem- 
ory that it utilizes. 


The Pascal/7VS run time support will 
not attempt to handle any errors during 
execution, unless the main program is 
in Pascal. 


The REENTRANT directive may be used in 
Place of the MAIN directive if the pro- 
gram must be reentrant. In this case 
you must assist Pascal/VS in keeping 
track of the location of the Pascal/VS 
execution anvironment. The first 
parameter to a REENTRANT procedure must 
be an integer passed by var. The first 
call to the procedure must pass as its 
first parameter, a FIXED BINC31,0) var- 
iable which has been set to the value 
zero. Upon return from the first call, 
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PL/I as the caller 


to Pascal/VS: Use of the REEN- 


this variable will contain an address 
which refers to the newly created Pas- 
cal/Vs environment. This variable 
should be passed unaltered to subse- 
quent calls so that the Pascal/VS 
environment may be reentered. 


To terminate the Pascal/VS environment 
that was set up by the REENTRANT proce- 
dure, the "PSCLHX" should be called 
with the variable that contains the 
address. See Figure 93 for an example. 


13.5 DATA TYPES COMPARISON 


Every language has numerous data types 
that are suited for the applications 
for which the language was intended. 
When passing data batween programs 
written in different languages you must 
be aware which data types are the same 
and where there is no equivalent repre- 
sentation. 


Some data types in other languages have 
no direct equivalent in Pascal; 
however, you can often create new user 
data types in Pascal that will simulate 
some of the data types found in other 
languages. For example, you could 
define a record type that is identical 
to FORTRAN's COMPLEX type. 


CHAR 
BOOLEAN 
INTEGER 


packed 
~32768..3 


packed 
0..65536 


packed -128 
packed 0..2 
REAL 
SHORTREAL 
packed 

arrayll.. 

CHAR 

STRING(m) 
set of 0..n 
a id 


array 


record 


space 


Figure 94. 


Figure 94 compares Pascal data types 
with the equivalent in FORTRAN, 
and PL/I. 


Pascal/VS makes no attempt to remap any 
storage when an inter-language call 


CHARACTER*®1 
LOGICAL*1 
INTEGER®4 


INTEGER¥2 
2767 


--127 na 
55 na 
REAL8 
REAL 4 
CHARACTERXn 
nl] of 
na 
na 
na 


dimensioned 
variable 


na 


na 


Data Type Comparisons 
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made. This means that beause FORTRAN 
stores its arrays in column-major order 
and Pascal stores its arrays in 
row-major order, a call between FORTRAN 
and Pascal/VS procedures appears to 
transpose the array. 


Data Type Equivalences Between Different Langauges 
Pascal/Vs FORTRAN coBOL 


CHAR 
na FIXED BINARY(C1,0) 


PIC $999999999 FIXED BINARY(31,0) 
USAGE IS COMP 


PIC $9999 USAGE 
IS COMPUTATIONAL 


FIXED BINARY(15,0) 


na 


na FIXED BINARY(7,0) 
na na 
COMPUTATIONAL-2 
COMPUTATIONAL~1 
PIC X(€n) or 


PIC X OCCURS n 
TIMES 


REAL FLOAT DEC(16) 
REAL FLOAT DECC6) 
CHARCn) 


na CHAR(m) VARYING 
na BIT(Cnt1) 
na POINTER 


OCCURS dimensioned 


variable 
record structure 


na AREA 
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c 14.1 


PROGRAM INITIALIZATION 


Upon invoking a Pascal/VS program, the 
routine which is responsible for estab- 
lishing the Pascal/VS execution time 
environment gains control and performs 
the following functions: 


1. Memory is obtained in which dynamic 
storage areas (DSA) are allocated 
and deallocated. 


2. The Pascal Communication Work Area 
CPCWA) is created and initialized. 


3. An environment is set up to inter- 
cept program interrupts (fixed 
point overflow, divide by zero, 
etc.) 


14.3 EXECUTION SUPPORT ROUTINES 


14.0 RUNTIME ENVIRONMENT OVERVIEW 


4. The main program is called. 


5. Upon return from the main program 
any open files are closed. 


6. Acquired memory is freed. 


7. Control is returned to the system. 


14.2 THE MAIN PROGRAM 


The main program is called as an ordi- 
nary procedure from the environment 
setup routine CPASCALVS). The entry 
point name of the main program is 
AMPXBEGN. 


Execution Support Routines 


AMPXBCLK 
Ty AMPXCHKS 
AMPXCLCK 
AMPXCRTE 
AMPXDATE 
AMPXDATI 
AMPXDBCB 
AMPXECLK 
AMPXGOTO 
AMPXGTOK 
AMPXG12 
AMPXG13 


AMPXHALT HALT procedure 


AMPXINIT 
AMPXMAIN 
AMPXMOVE 
AMPXMUS 

AMPXNAME 
AMPXPAD 
AMPXPARM 
AMPXRETC 
AMPXSETV 
AMPXSPAR 
AMPXTERM 
AMPXTOK 

AMPXTRAC 
AMPZABND 
AMPZCVD 
CMS CMS procedure 
PASCALVS 
PSCLHX 


PARMS function 
RETCODE procedure 


TOKEN procedure 
TRACE procedure 


These routines provide miscellanaous 
C functions such as program initializa- 


Initializes the execution clock 
Checks a set for membership 
Interogate the execution clock 
Initialize the PCWA 

DATETIME procedure 

System date and time 

Obtains a procedures DBCB pointer 
Ends the the execution clock 
Handles goto out of block 

Obtains a token from user's execution parameters 
Returns the contents of register 12 
Returns the contents of register 13 


Initializes prior to execution of a Pascal program 
Interface for calling Pascal for other languages 
Memory to memory move 

Adds elements to a set 

Obtains a procedures name 

Memory fill memory with blanks 


Memory fill of with a value 
Intialize for PARMS function 
Termination after execution of a Pascal program 


Abnormal termination routine 
Convert to decimal 


Main entry point for a Pascal/VS main program 
Terminates execution 


for interlanguage calls 


tion and low level routines such as 
fast memory move. 
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14.4 INPUT/OUTPUT ROUTINES 


Internal Input/Output Routines 


AMPXCLOS CLOSE procedure 

AMPXCOLS COLS function 

AMPXGET GET procedure (TEXT files) 

AMPXGETR GET procedure 

AMIPXOPEN RESET, REWRITE or UPDATE procedures 
AMPXOPN1 Initializes a PCB prior to opening 
AMPXOPN2 Sets a PCB after opening 

AMPXPARS Analyze the optional string on RESET or REWRITE 
AMPXPCBC Closes a file (PCB) 

AMPXPDS PDS support routines (PDSIN and PDSOUT) 
AMPXPUT PUT procedure 

AMPXRCHR Reads into a CHAR 

AMPXRINT Reads into an INTEGER 

AMMPXRLIN Reads to end of line (TEXT file) 
AMPXRR Reads a REAL value 

AMPXRRDY Prepares a TEXT file for input 
AMPXRREC Reads one record (non TEXT files) 
AMPXRSTR Reads into a STRING 

AMPXRTXT Reads into an array of CHAR 
AMPXSEEK SEEK procedure 

AMPXSTAT Obtains the status of a file 
AMPXTIO Terminate I/0 processing 

AMPXWB Writes a BOOLEAN value 

AMPXWCHR Moves data to an I/0 output buffer 
AMPXWCHS Writes a CHAR to a TEXT file 
AMPXWINT Writes an INTEGER to a TEXT file 
AMPXWLIN Writes an end-of-line to a TEXT file 
AMPXWR Writes a REAL value 

AMPXWRDY Prepares a TEXT file for output 
AMPXWREC Writes one record (non TEXT files) 
AMPXWSTR Writes a string to a TEXT file 
AMPXWT XT Writes an array of CHAR to a TEXT file 
AMPYCLOS System dependent @SAM close 
AMPYDFLT Applies System dependent defaults to a file 
AMPYGET System dependent get procedure 
AMPYOPEN System dependent QSAM open 

AMPYPAGE PAGE procedure 

AMPYPDS System dependent PDS interface 
AMPYPUT System dependent put procedure 
AMPYSEEK System dependent seek procedure 
AMPZDAMR Issues a READ for a BDAM data set 
AMPZDAMW BDAM write procedure 

AMPZDCBC Close on an QOS DCB 

AMPZDCBO Open on an OS DCB 

AMPZFIND Issues OS FIND 

AMP ZGET Issues a QSAM GET 

AMPZPUT Issues a QSAM PUT 

AMPZPUTX Issues a QSAM PUTX 

AMPZSAMR Issues a READ for a BSAM data set 
AMPZSAMW BSAM write procedure 

AMPZSTOW Issues OS STOW 

AMPZTGET Issues a TGET (05) or RDTERM (CMS) 
AMPZTPUT Issues a TPUT (05) or WRTERM CCMS) 


The I/70 operations (which appear as internal procedures within the runtime 
calls to predefined procedures in environment. 
Pascal/VS) are implemented as calls to 
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14.5 ERROR HANDLING 


Procedure name 


When the runtime environment detects an 
error condition, it calls a routine to 
handle the error. There are several 
different routines, one routine for 
each of class of error (e.g. I/0 error, 
program exception etc). The routine 


14.6 CONVERSION ROUTINES 


Error Handling 


Action Performed 


AMPXCHKR Intercepts execution time checking errors 
AMPXDIAG Intercepts program exceptions 

AMPXERR General execution time error handler 
AMPXIOER I/0 error intercept routine 

ONERROR Default ONERROR procedure 


AMPXERR is the central routine, it is 
always called from the other routines: 
it then calls ONERROR, the user pro- 
vided error handler, and then completes 
the error handling. 


There are several places where 
Pascal/VS must perform data conver- 
sions. They take place when you are 


Conversion Routines 


Procedure name Action Performed 


AMPTTOR Converts a REAL CEBCDIC) to REAL 
AMPXBTOS BOOLEAN to string conversion 

AMPXCTOS Converts a CHAR to a string 

AMPXGTOS Converts a string to a string 

AMPXITOS Converts an INTEGER to a string 

AMPXOTOS Converts an offset 

AMPXPACK PACK procedure 

AMPXRTOS Conversion for a REAL to a STRING 
AMPXSTOC Conversion for a STRING to a CHAR 
AMPXSTOG Conversion for a STRING to a STRING 
AMPXSTOI Conversion for a STRING to an INTEGER 
AMPXSTOR Converts a REAL CEBCDIC) to REAL 
AMPXSTOT Conversion for a STRING to an array of CHAR 
AMPXTTOS Appends an array of CHAR to a string 
AMPXUCAS Lower case to upper case conversion 
AMPXUNPK UNPACK procedure 

ITOHS Integer to hexadecimal string conversion 


in a procedure to a statement number 


doing I70 on TEXT files and when you 
use READSTR and WRITESTR. 
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14.7 MATHEMATICAL ROUTINES 


Mathematical Routines 


AMPXATAN 
AMPXCOS 


AMPXEXP 
AMPXLN 
AMPXRAND 
AMPXSIN 
AMPXSQRT 


ARCTAN function 
COS function 

EXP function 

LN function 
RANDOM procedure 
SIN function 
SQRT 


The predefined functions are provided Ce.g. SIN) to an internal name (e.g. 


as Pascal/VS functions. The Pascal/VS 


AMPXSIN). 


compiler changes the user provided name 


14.8 STRING ROUTINES 


String Routines 


AMPX$COM 
AMPXSDEL 
AMPXSLTR 
AMPXSSUB 
AMPXSTRI 
AMPXCAT 
AMPXCOMP 
AMPXDELE 
AMPXINDX 
AMPXLTRI 
AMPXSUBS 
AMPXTRIM 
LPAD 
RPAD 


COMPRESS function Clong strings) 
DELETE function Clong strings) 
LTRIM procedure (long strings) 
SUBSTR function Clong strings) 
TRIM function Clong strings) 
Concatenates 2 to 9 strings 
COMPRESS function (short strings) 
DELETE function Cshort strings) 
INDEX procedure 

LTRIM procedure (short strings) 
SUBSTR function Cshort strings) 
TRIM function Cshort strings) 
LPAD procedure 

RPAD procedure 


The predefined functions and proce- ble. In order to use the short form 


dures are provided as Pascal/VS func- 
tions and procedures. The Pascal/VS 
compiler changes the user provided name 
Ce.g. SUBSTR) to an internal name (e.g. 
AMPXSUBS). Several routines are pro- 
vided in two forms: long and short. 
The short form is always used if possi- 
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the Pascal/VS compiler must determine 
that the resulting string will be less 
than 1000 bytes long. If the size 
can't be limited by compiler analysis, 
the compiler uses the long form which 
passes the results through the heap. 


14.9 MEMORY MANAGEMENT ROUTINES 


Memory Management Routines 


AMPXALOC 
AMPXDISP 
AMPXFREE 


DISPOSE procedure 


AMPXIDSP 
AMPXINEW 
AMPXMARK 
AMPXNEW 

AMPXRLSE 
AMPXTMEM 


MARK procedure 
NEL! procedure 
RELEASE procedure 


The NEW procedure generates a call to 
the internal procedure AMPXNEN. This 
procedure allocates storage within a 
heap. If a heap has not yet been cre- 
ated, NEW will obtain memory from the 
operating system to create a heap. 


The DISPOSE procedure generates a call 
to the procedure AMPXDISP. This proce- 
dure deallocates the heap- storage 
acquired by a preceding call to 
AMPXNEW. 


The MARK procedure generates a call to 
the procedure AMPXMARK. This procedure 
creates a new heap from which subse- 


Basic storage allocator 


Basic storage de-allocator 
Dispose for the I/0 routines 
New for the I/70 routines 


Termination processing for memory management 


quent calls to AMPXNEW will obtain 


storage. 


The RELEASE procedure generates a call 
to the procedure AMPXRLSE. This proce- 
dure frees a heap that was previously 
created via the AMPXMARK procedure. 
Subsequent calls to AMPXNEW will obtain 
storage from the heap which was active 
prior to the call of AMPXMARK. 


The I/0 routines have access to a sepa- 
rate heap is controlled with the rou- 
tines AMPXINEW and AMPXIDSP. Thus, I70 
buffers and file control blocks are in 
a distinct area from the users area. 
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| Release 2.1 of Pascal/VS has several 


differences from ‘'‘standard'" Pascal. 
Most of the deviations are in the form 
of extensions to Pascal in those areas 
where Pascal does not have suitable 
facilities. 


15.1 PASCAL/VS RESTRICTIONS 


Pascal/VS contains the following 
restrictions that are not in standard 
Pascal. 


Conformant array parameters 
The conformant array mechanism for 
passing array variables to rou- 
tines is not supported. 


Note: In Release 2.0, procedures which 


are passed as parameters were 
restricted to the outer most nesting 
level. In Release 2.1, this restric-— 


tion was removed. 


15.2 MODIFIED FEATURES 


Pascal/VS has modified the meaning of a 
negative length field qualifier on an 
operand within the WRITE statement. 


15.3 NEW FEATURES 


Pascal/VS provides a number of exten- 
Sions to Pascal. 


e Separately compilable modules are 
supported with the SEGMENT defi- 
nition. 

° ‘internal static’ data is  sup- 


ported by means of the static dec- 
larations. 


e "external static’ data is sup- 
ported by means of the def and ref 
declarations. 


° Static and external data may be 
initialized at compile time by 
means of the value declaration. 


° Constant expressions are permitted 
wherever a constant is permitted 
except as the lower bound of a sub- 
range type definition. 


° The keyword "range" may be prefixed 
to a subrange type definition to 
permit the lower value to be a con- 
stant expression. 
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15.0 COMPARISON TO PASCAL 


A varying length character string 
is provided. It is called STRING. 
The maximum length of a STRING is 
32767 characters. 


The STRING operators and functions 
are concatenate, LENGTH, STR> 
SUBSTR, DELETE, TRIM, LTRIM, COM- 
PRESS and INDEX. 


A new predefined type, STRINGPTR, 
has been added that permits you to 
allocate strings with the NEW pro- 
cedure whose maximum size is not 
defined until the invocation of 
NEW. 


A new parameter passing mechanism 
jis provided that allows strings to 
be passed into a procedure or func— 
tion without requiring you to spec-— 
ify the maximum size of the string 
on the formal parameter. 


The MAXLENGTH function returns the 
maximum length that a string vari- 
able can assume. 


Calls to FORTRAN subroutines and 
functions are provided for. 


The MAIN directive permits you to 
define a procedure that may be 
invoked from a non Pascal environ- 
ment. A procedure that uses this 
directive is not reentrant. 


The REENTRANT directive permits 
you to define a procedure that may 
be invoked from a non Pascal envi- 
ronment. A procedure that uses 
this directive is reentrant. 


Files may be explicitly closed by 
means of the CLOSE procedure. 


The DDNAME to be associated with a 
file may be determined at execution 
time with the optional. string 
parameter on the procedures: 
RESET, REWRITE, UPDATE, TERMIN, 
TERMOUT, PDSIN and PDSOUT. 


The parameters of the text file 
READ procedure may be 
length-quali fied. 


Files may be opened for updating 
with the UPDATE procedure. 


Input files may be opened as "IN- 
TERACTIVE™ so that I/0 may be done 
conveniently from a terminal. 


Files may be opened for terminal 
input CTERMIN) and terminal output 
CTERMOUT) so that I/70 may take 
place directly to the user's termi- 
nal without going through the 
DDname interface. 
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Files may be accessed based on rel- 
ative record number Crandom 
access). 


The PDSIN procedure opens a parti- 
tioned dataset Cor MACLIB) for 
input. The PDSOUT procedure opens 
a partitioned dataset (or MACLIB) 
for output. <A string parameter is 
required to set the member name. 


The space structure is provided for 
processing packed data. 


Records may be packed to the byte. 


The tagfield in the variant part of 
a record may be anywhere within the 
fixed part of the record. 


Fields of a record may be unnamed. 


Tag specifications on record vari- 
ants may be ranges (x..y). 


Integers may be declared to occupy 
bytes and halfwords in addition to 
full words, as a result of the 
packed qualifier. 


Sets permit the operations of set 
complement and set exclusive 
union. 


A function may return any type of 
data except a file. 


The operators "|", '&*, "&&"* and 
"=" may be applied to data of type 
integer. When applied to integers, 
the operators act on a bit by bit 
basis. Shift operations on data 
are also provided. 


Integer constants may be expressed 
in hexadecimal digits. 


Real constants (floating point) 


may be expressed in hexadecimal 
digits. 
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string constants may be expressed 
in hexadecimal digits. 


The “INCLUDE facility provides a 
means to include source code from a 
library. 


A parameter passing mechanism 
(const) has been defined which 
guarantees that the actual parame- 
ter is not modified yet does not 
require the copy overhead of a pass 
by value mechanism. 


leave, continue and return are new 
statements that permit a branching 
capability without using a goto. 


Labels may be either a numeric val- 
ue or an identifier. 


case statements may have a range 
notation on the component state- 
ments. 


An otherwise clause is provided for 
the case statement. 


The variant labels in records may 
be written with a range notation. 


The assert statement permits run- 
time checks to be compiled into the 
program, 


interface 
HALT, 


The following system 
procedures are supported: 
CLOCK, and DATETIME. 


Constants may be of a structured 
type (namely arrays and records). 


To control the compiler listing, 
the following listing directives 
are supported: %PAGE, %SKIP, and 
“TITLE. 


16.1 SYSTEM DESCRIPTION 


The Pascal/VS compiler runs on the IBM 
System/370 to produce object code for 
the same system. System/370 includes 
all models of the 370, 303x, and 43xx 
computers providing one of the follow- 
ing operating environments: 


® VM/CMS 
® os/vS2 TSO 
® OS/VS2 Batch 


16.2 MEMORY REQUIREMENTS 


Under CMS, Pascal/VS requires a virtual 
machine of at least 768K to compile a 
program. Execution of a compiled pro- 
gram can be performed in a 256K CMS 
machine. 


The compiler requires a minimum region 
size of 512K under VS2 (MVS). A com- 
piled and link-edited program can exe- 
cute ina 128K region. 


The compiler is reentrant and may be 
loaded in a shared area in MVS or 
mapped to a shared segment in CMS. 


16.3 IMPLEMENTATION RESTRICTIONS AND 
DEPENDENCIES 


Boolean expressions 

Pascal/VS “short circuits” boo- 
lean expressions involving the 
and and or operators. For exam- 
ple, given that A and B are boo- 
lean expressions and X is a 
boolean variable, the evaluation 
of 


X := Aor Borec 
would be performed as 
if A then 
X := TRUE 
else 
if B then 
X := TRUE 
else 
X := C 
The evaluation of 


X := A and B and C 
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16.0 IMPLEMENTATION SPECIFICATIONS 


would be performed as 


if -A then 
X := FALSE 


See the section entitled "Boole- 
an Expressions” in the Pascal/VS 
Language Reference Manual for 
more details. 


Floating-point 
Some commonly required charac” 
teristics of System/370 float- 
Ing-point arithmetic are shown 
in Figure 95 on page 130. 


Identifiers 
Pascal/VS permits identifiers of 
up to i6 characters in length. 
If the compiler encounters a lon- 
ger name, it will ignore that 
portion of the name longer than 
16 characters. 


Names of external variables and 
external routines must be unique 
within the first 8 characters. 
Such names may not contain an 
underscore '_' within the first 8 
characters. 


Integers 
The largest integer that may be 
represented is 2147483647.1& 


This is the value of the prede- 
fined constant MAXINT. 


The most negative integer that 
may be represented is 
~2147483648. This is the value 
of the predefined constant MIN- 
INT. 


Routine nesting 
Routines may be nested up to 
eight levels deep. 


Routines passed as parameters 
The following standard routines 
may not be passed as parameters 
to another routine: 


ABS, CHR, CLOSE, DISPOSE, EOF, 
EOLN, FLOAT, GET, HBOUND, HIGH- 
EST, LBOUND, LENGTH, LOWEST, 
MARK, MAX, NEW, ODD, ORD, PACK, 
PAGE, PDSIN, PDSOUT, PRED, PUT, 
READ, READLN, READSTR, RELEASE, 
RESET, REWRITE, ROUND, SIZEOF, 
SQR, STR, SUCC, TERMIN, TERMOUT, 
TRUNC, UNPACK, UPDATE, WRITE, 
WRITEUN, WRITESTR 


This is the highest signed value that may be represented in a 32 bit word. 
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Floating-point Characteristics 
Characteristic Decimal approximation Exact Representation? 


7.23700557733226E+75 
5.39760534693403E-79 


Maxreal? 
Minreal? 


1.38777878078145E-17 


Epsilon‘ 


The syntax "..."XR is the 
represented in Pascal/VS. 
Pascal/VS Language Reference Manual. 


Maxreal is the 
represented. 


largest 


Minreal is the smallest positive 
may be represented. 


Epsilon is the smallest positive 
following condition holds: 


1.0t+epsilon > 1.0 


This value is 
verging series. 


Figure 95. 


A FORTRAN function or subroutine 
may not be passed as a parameter 
to a Pascal/VS routine. 


Sets 
Given a set type of the form 


set of a..b 


where "a" and "b"™ express the 
lower and upper bounds of the 
base scalar type, the following 


conditions must hold: 
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finite floating-point 


finite floating-point 


often needed in numerical 


"7 FFFFFFFFFFFFFFF'XR 
*0010000000000000'°XR 
*3310000000000000'XR 


way hexadecimal floating-point numbers are 
See the section entitled 


"Constants" in the 


number that may be 


number that 


floating-point number such that the 


computations involving con- 


Characteristics of System/370 floating point arithmetic 


° ORDCa) >= 0 
e ORD(b) <= 255 


Size limitations 


The size of a single procedure or 
function must not exceed 8192 
bytes of generated code. 8192 
bytes represent approximately 
400 Pascal statements, depending 
on the complexity of the state- 
ments. The compiler will 
generate a diagnostic if this 
limit is reached. 


17.0 PASCAL/VS MESSAGES 


17.1 PASCAL/VS COMPILER MESSAGES 


Not yet implemented 


The indicated construct is not currently implemented. 


compiler detected text after the logical end of the program. 
This error is often caused by mismatched begin/end brackets. 


indicated character within a quoted string does not correspond 

a valid displayable EBCDIC character. If the string is printed 

on a device, the character may be interpreted as a control character 
that could cause unpredictable results. 


a control character is intended, then the string should be 
represented in hexadecimal form. 


Symbol invalid or out of context 


indicated symbol is not part of the syntax of the construct 
being scanned. The symbol should be deleted or changed. 


EOF before logical end of program 
compiler came to the end of the source program before the log- 


ical end of the program was detected. This error is often caused by 
mismatched begin/end brackets. 


semicolon ';" expected 


Ambiguous procedure/function specification 


The routine directive EXTERNAL or FORTRAN was applied to the indi- 
cated routine declaration that was also declared as_ an ENTRY 
routine. Such a combination is contradictory. 


Multiply declared label 


indicated label has been previously declared within the sur- 
rounding routine. 


Label identifier expected 
Within the indicated label definition, a label identifier is 


missing. A label identifier is either an alphanumeric identifier or 
an integer constant within the range 0 to 9999. 


Pascal/VS Messages 131 


The characters '$" and '_* are not valid in standard Pascal 


This is a warning message that can occur when the LANGLVLCSTANDARD) 
compile option is specified. An identifier is being declared which 
has a name containing characters which are not recognizable in 
"standard" Pascal. 


Identifier required to be a type in tag field specification 


Within a record definition, a tag field is being declared, but the 
indicated identifier which is supposed to represent the tag field's 
type was not declared as a type. 


routine declaration which has been previously declared as FORWARD 
or EXTERNAL must not specify any formal parameters. Any formal 
parameters are assumed to have been specified previously on the 
associated declaration that contained the FORWARD/EXTERNAL direc- 
tive. 


Files passed by value not permitted 

The indicated formal value parameter is of a file type. A file var- 
iable may be passed to a routine only by the var or const mechanism; 
never by value. 


String literal constant is too long: exceeds 3190 


Because of an implementation restriction, a string constant may not 
exceed 3190 characters in length. 


A procedure declaration was previously declared as a forwarded func- 
tion; or ae function declaration was previously declared as a for- 
warded procedure. 

Routine nesting exceeds maximum 

The indicated procedure or function declaration exceeds the maximum 
allowed nesting level for routines. Routines may be nested to a 
maximum depth of 8. 

Too many nested WITH statements or RECORD definitions 


This error occurs when to many lexical scopes are active. This can 
occur is multiply nested With statements and record definitions. 


Type not needed on forwarded function 

function declaration which has been previously FORWARDed must not 
specify a return type. The type specification is assumed to have 
been specified previously on the associated declaration that con- 
tained the FORWARD directive. 
Missing type specification for function 


The indicated function header did not specify a return type. 


132 Pascal/VS Programmer's Guide 


34 


PROCEDURE/FUNCTION previously FORWARDed 


The indicated routine declaration that contains the FORWARD or 
EXTERNAL directive was already previously forwarded. 


Additional errors in this line were not diagnosed 


The indicated construct contained more errors, but were not diag- 
nosed due to space considerations. 


Illegal hexadecimal or binary digit 


An invalid hexadecimal digit was detected within a hexadecimal con- 
stant specification of the form 


Pll.'X, 1.2..9XO, or 1... °XRS 


or, an invalid binary digit was detected within a binary constant 
specification of the form 


"ll. "B. 
The following characters are valid hexadecimal digits: 


0, 1, 2, 3, 4, 5, 6, 7, 8, 9, Ay By Cy, OD, E, F, 
a, b, c, d, e, f 


The following characters are valid binary digits: 
Oo, lL 
Unidentifiable character 


The indicated character is not recognized as a valid token. 


Digit expected 


A decimal digit was expected but missing at the indicated location. 
Real constant has too many digits 

The indicated floating point constant contains more digits than the 
compiler allows for in scanning. If this error should occur, please 
notify the compiler maintenance group at IBM. 


Integer constant too large 


The indicated integer constant is not within the range -2147483647 
to 2147483647. 


End of string not seen 


A string constant may not cross a line boundary. This error is 
often the result of mismatched quotes. 


If a string constant is too large to fit on one line, it must be 
broken up into multiple strings and concatenated with the |] opera- 
tor. (Concatenation of string constants is performed at compile 
time). 


Hexadecimal integer constant may not exceed 8 digits 


The indicated hexadecimal constant exceeds the maximum allowed num- 
ber of digits. 


Char string is too large 
The indicated string constant exceeds 255 characters, which is the 


implementation limit. This may happen when multiple string con- 
stants are concatenated. 
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Standard routines not permitted as parameters 


Standard routines which generate in line code may not be passed as 
parameters to other routines. The following is a list of such rou- 
tines: 


ABS, CHR, CLOSE, DISPOSE, EQF, EOLN, FLOAT, GET, HBOUND, 
HIGHEST, INTERACTIVE, LBOUND, LENGTH, LOWEST, MARK, MAX, NEW, 
ODD, ORD, PACK, PAGE, PRED, PUT, READ, READLN, RELEASE, RESET, 
REWRITE, ROUND, SIZEOF, SQR, STR, SUCC, TRUNC, UNPACK, WRITE, 
WRITELN, 

PDSIN, PDSOUT, READSTR, TERMIN, TERMOUT, UPDATE, WRITESTR 


Variable must be of type file 
The indicated variable is required to be of a file type. 
Must be of type TEXT 


The indicated variable is required to have been declared with the 
predefined type TEXT. 


Required parameters are missing 


The indicated READ or WRITE statement contains no parameter from 
which to reference data. 


Comma *,* expacted 


User defined scalars not permitted 


Expressions which are of a user defined enumerated type may not be 
directly read from or written to a text file. 


Operand of READ/WRITE not of a valid type 


Any parameter passed to the procedures READ or WRITE (text file 
case) must be compatible with one of the following types: 
INTEGER 
REAL 
SHORTREAL 
CHAR 
BOOLEAN 
~ STRING 
packed arrayl1..n] of CHAR 
where n 1s a positive integer constant. 


Field length must be integer 
The indicated length qualifier expression in a READ or WRITE state- 


ment is not of type integer. Any length specification within a 
text-file READ/WRITE must be of type integer. 


45 Set contains constant member(s) which are out of range 


The indicated set constant contains members which are not valid for 
the set variable to which the constant is being assigned. 


For example, 


var S : set of 10..20; 
begin 

§ := €1,2); (<== this statement would produce error 45%) 
end; 


This error may also occur when a set constant is being passed as a 
parameter. 
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2nd field length applicable only to REAL data 


In the procedure WRITE (text file case), only expressions of type 
REAL are permitted to have two length field qualifications. 


Array reference contains too many subscripts 


An array variable of dimension 'n' is being subscripted with more 
than 'n* number of subscripts. 


48 Associated variable of subscript must be of an array type 
An attempt is being made to subscript a variable which was not 
declared as an array. 

49 Expression must be of a simple scalar type 
The indicated expression should be of a simple scalar type within 
the context in which it is being used. 

50 No max length specified on STRING type - 255 assumed 
A type definition of the form "STRING" does not contain a length 
specification to indicate the maximum length of the string variable. 
255 is the default length. 

51 Variable must be of a pointer type 
The indicated variable is being used as a pointer; however, the var- 
iable was not declared as being of a pointer type. 

52 Corresponding variant declaration missing 


53 


54 


55 


56 


57 


Within a call to the procedure NEW or to the function SIZEOF, the 
indicated tag field specification fails to correspond to a variant 
within the associated record variable; or, the associated variable 
was not of a record type. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Expression must be numeric 

Expressions which are prefixed with a sign ('+' or '-') must be of a 
type that is compatible with INTEGER or REAL. This also applies to 
expressions which are operands of such predefined functions as ABS 
and SQR. 

Expression must be of type real 

The indicated call to ROUND or TRUNC has an argument (actual parame- 
ter) of an incorrect type. The predefined functions TRUNC and ROUND 
require an expression of type REAL as a parameter. 

Expression must be of type integer 


The indicated expression must be of a type that is compatible with 
INTEGER. 


Parameter type does not match formal parameter 

Within a procedure or function call, an expression or variable is 
being passed as an actual parameter which is of a type that is not 
compatible with the corresponding formal parameter. 


Expression must be a variable 


An erroneous attempt was made to pass a non-variable as an actual 
parameter to a routine which expects a pass-by-Var parameter. 
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59 Number of parameters does not agree 


Within a procedure or function call, the number of parameters being 
passed does not correspond with the number required. 


Gad 


expected 


Constant expected 


Type specification expected 


At the 
missing. 


place indicated, a type definition is expected but is 


",." expected 


Expression's type is incorrect or incompatible within context 


This error is caused by a number of reasons: 


° A unary or binary operator is being applied to an expression 
which 1s of a type that is not valid for the operator. 


Two expressions being joined by a binary operator are of incom- 


patible types. 


The parameters of the MIN/MAX functions are not of consistent 


types. 


Members of a set constructor have inconsistent types. 


65 Subransge lower bound > upper bound 


66 Assignment to ptr qualified variant record invalid 


The indicated statement attempts to assign to the whole of a pointer 
qualified record with variant fields. Such an assignment is not 
valid under Pascal/VS. This restriction is necessary because the 
pointer qualified record may have been allocated with a size that is 
specific to its active variant. 


Example of violation: 


type 
R = record 
case BOOLEAN of 
TRUE: (C:CHAR); 
FALSE: (CA: ALPHA) 


end; 
var P =: OR; 
RR =: R; 
begin 
NEWCP, TRUE); 
Pa == RR C¥<===invalid assignment) 
end 


67 Real type not valid here 


The indicated expression is of type REAL. An expression of this 
type is not valid within the associated context. 


= "OF" expected 
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69 Tag constant does not match tag field type 


Within a record definition, a variant tag is being defined which is 
of a type that is not compatible with the corresponding tag field 
type. 


Within a call to NEW or SIZEOF, a tag value is specified which is of 
a type that is not compatible with the corresponding tag field type 
of an associated record variable. 

70 Duplicate variant field 


Within a record definition, a variant tag is being defined more than 
once. 


71 Not applicable to "PACKED" qualifier 


The indicated type definition was qualified with the word "packed". 
Such a qualification within the associated context is not valid. 


“= 


73 Array has too many elements 


The length of the indicated array definition exceeds the address- 
ability of the computer. 


Vee CLrr”t—<“—s”~—“‘s:C:si‘CSsSCisYG 
Ba File of files not supported 


Tllegal reference of function name 


The indicated identifier is the name of a function. It is being 
used in a way that is incorrect. 


Subscript type not compatible with index type 


The indicated subscript expression is not of a type that is compat- 
ible with the declared subscript type for the array. 


79 Associated variable must be of a record type. 
A variable associated with the indicated statement or expression is 
required to be of a record type according to context; but such is 
not the case. 


80 Record field qualifier not defined 


The indicated record field does not exist for the associated record. 
81 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Associated variable must be of a pointer or file type 


ie indicated arrow qualified variable is not of a pointer or file 
ype. 


Set element out of range 


The indicated set member of a set constructor exceeds the allowed 
range for the set. 
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84 Expression must be of a set type 


The indicated expression is required to be of a set type in the con- 
text in which it is being used. 


85 Must be positive integer constant 


The indicated expression fails to evaluate to a positive integer 
constant, which is required in’ the context in which it is being 
used. 


LEAVE/CONTINUE not within loop 


The indicated leave or continue statement fails to reside within a 
loop construct. 


7 


TEXT files may not be updated 


An attempt was made to open a text file for updating. Only record 
files may be updated. 


90 Label not declared 


The indicated label did not appear in a label declaration. 


92 "THEN" expected 


Redundant case alternative 


The indicated case statement label is equal to a previous label 
within the same cas@ statement. 


94 Required length expression missing for dynamic string allocation 
A pointer variable declared with the type STRINGPTR is being allo- 
cated with the NEW procedure, but the required length expression is 
missing. 


95 "UNTIL" expected 
96 "po" expected 
97 FOR-loop index must be simple local variable 
A for-loop variable must be declared as a simple automatic (var) 


variable, local to the routine in which the for loop resides. The 
indicated for-loop variable did not meet this criteria. 


a "TO" expected 
Label previously defined 
The indicated label identifier was previously defined within the 


associated routine. 


100 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


101 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 
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Max length of string variable does not match formal parameter 


A string variable is being passed to a procedure "by var" and the 
corresponding formal parameter is declared with an explicit length. 
This error occurs when the declared length of the variable being 
passed does not match that of the formal parameter. 


Example: 


procedure XYZ(var S: STRINGC(100)); EXTERNAL; 
var T: STRING(50); 
begin 


XYZ(T);  CERROR: declared length of T does *) 
(xX not match that of parameter S *X) 


end 
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Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Expression must be of type BOOLEAN 

The indicated expression which is associated with an if, assert, 
While, or repeat statement is required to represent a condition. 
Conditional expressions are of type BOOLEAN. The indicated expres- 
sion failed to meet this criteria. 

Constant out of range 


The indicated constant expression evaluated to a value which is out- 
side the required range of its context. 


Identifier was previously declared 


The indicated identifier within a declaration was previously 
declared within the same lexical scope. 


Undeclared identifier 
The indicated identifier being referenced was not declared. 
Identifier is not in proper context 


The indicated identifier is baing used in a way that is not consist- 
ent with how it was declared. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 


tenance group at IBM. This is a compiler error. 
Case label tag of wrong type 


The value of the indicated case statement label is not of a type 
that is conformable to the case statement indexing expression. 


Loop Will never execute 
The indicated for loop will not execute at runtime. The compiler has 
determined that the terminating condition for the loop is uncondi- 
tionally true. 
Loop range exceeds range of index 
indexing variable used for the indicated for loop was declared 
a subrange that does not include the range indicated by the 
initial and final index values. 


*PROGRAM' header missing 


Pending comment not terminated 

A comment starting symbol was detected within a pending comment. 
Percent "2%" statement not found 

A '%* symbol was detected, but with no identifier following. 
Percent "%" identifier not recognized 


A identifier following the °%" symbol is not recognized as a valid 
compiler directive. 
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116 YON” or “OFF” expected 
117 Unrecagnizable option in "%CHECK"™ 


118 Magnitude of floating point constant too large or teo small 


The indicated floating point constant has a magnitude that is out- 
side the range of the IBN/370 double precision representation. The 
largest floating point magnitude that can be represented is 


7.23700557733226E75 
The smallest is 


5.39760534693403E-79 


119 First parameter of READSTR/WRRITESTR must be of type STRING 


120 String constant requires truncation 


The indicated string constant, which is being assigned to a variable 
or being passed to a routine, requires truncation because of its 
excessive length. Implicit truncation of strings is not permitted. 


121 Declaration out of order: LASEL,CONST,TYPE,VAR,routine 


This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. One or more declara- 
tion constructs are not in the order required by standard Pascal. 
Standard Pascal requires identifiers to be declared in the following 
order: 

Labels 

Constants (const) 

Types (type) 

Variables (var) 

Routines (proceduresfunction) 


"OTHERWISE” clause without associated CASE statemant 


The indicated otherwise statement is not within the context of a 
case statement. 


123 Maximum string length exceeded 


The indicated expression produced a varying length string which 
exceeds 32767 characters in length. 32767 is the maximum allowed 
length for a varying length string. 


124 Construct or operation is not in standard Pascal 
This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated lan- 
guage construct or arithmetic operation is not supported in “"stand- 
ard" Pascal, but 1s a Pascal/VS language extension. 

125 Real to integer conversion not valid 


The indicated expression is of type real, but accdrding to its con- 
text, it is required to be of type integer. Implicit real to inte- 


ger conversion is not performed. 


Types not conformable in assignment 


The indicated assignment statement attempts to assign an expression 
of a particular type to a variable of an incompatible type. 


127 File variable assignment not permitted 


The left side of the indicated assignment statement is a variable of 
a file type. Assignment to file variables is not permitted. 
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Not compile-time computable 


The indicated expression fails to be a constant expression that can 
be evaluated at compile time. 


Assignment to "CONST" parameter invalid 


The indicated variable declared as a formal const parameter within a 
particular routine may not be modified by an assignment. 


Assignment to FOR-loop index invalid 


The indicated variable that is being used as a for loop index may 
not be modified by an assignment within the for loop statement. 


Passing “CONST” parameter by VAR invalid 


The indicated variable declared as a formal const parameter may not 
be modified by being passed as an actual var parameter to a routine. 


Passing FOR-loop index by VAR invalid 


The indicated variable that is being used as a for loop’ index may 
not be modified by being passed as an actual var parameter to a rou- 
tine. 


Refer-back tagfield must not be typad 


The indicated tag field specification within a record definition was 
found to reference a previous field within the record. Such 
refer-back references may not contain a type reference. 


Passing packed record field by VAR not valid 


This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated field 
of a packed record is being passed as an actual Var parameter to a 
routine. Passing fields of packed records as Var parameters is not 
valid in standard Pascal. 


Passing SPACE component by VAR not valid 


This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. Standard Pascal 
requires that actual var parameters be properly aligned which is not 
necessarily the case with a Space component. The indicated parame- 
ter is a component of a space variable which is being passed as a 
var parameter. 


Passing packed array element by VAR not valid 


This is ning message that may be produced when the 
LANGLVL (STANDARD) compiler option is specified. The indicated sub- 
scripted variable is being passed as an actual var parameter to a 
routine. The variable being subscripted is a packed array. Passing 
eesments of packed arrays as Var parameters is not valid in standard 
ascal. 


Scalar PACKing does not match corresponding VAR parameter 


The indicated variable that is being passed as a Var parameter is of 
a compatible type, but has a different length than the corresponding 
Aa taty Ecemerers This was caused by one being packed and the other 
unpacke 


Symbol not recognizable in standard Pascal 


This is a warning message that may result when the LANGLVLCSTANDARD) 
compiler option is specified. The indicated symbol (or operator) is 
not supported in "standard" Pascal. The symbol is part of a con- 
struct which is a Pascal/VS language extension. 
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142 Variable must be an array variable 


The indicated variable is required to be of an array type, but such 
is not the case. 


143 Offset qualified field not on proper boundary 
The indicated field in a record definition is qualified with an off- 


set which is not’ consistant with the boundary requirement of the 
field's type. 


Offset qualification value is too small 


The indicated field in a record definition is qualified with an off- 
set which causes an overlap with a previous field within the record. 


Type must be CHAR or PACKED ARRAY OF CHAR 


The indicated expression is required by its context to be 
CHAR or packed array[1..n] of CHAR. 


Variables of type POINTER are not permitted 


The special type 'POINTER' may only be applied to a formal parameter 
of a routine. 


147 Identifier was not declared as function 


The indicated identifier is used as though it is a function name, 
but is not declared as such. 


Missing period *.* assumed 


Not a valid comparison operation 


The indicated expression performs a comparison operation on two 
entities for which such comparison is not allowed. Except for 
strings, variables of structured types may not be directly compared 


with each other. The only valid comparison operators for sets are 
exe te>? tert and '>=! 
? ? > . 


Entry routines must be at the outermost nesting level 
A routine which is to be called from another module is nested within 
another routine which is not permitted. Such routines must be 
declared at the outermost nesting level. 


Fixed Point overflow or divide-by-zero 


An integer expression consisting of constant operands causes a pro- 
gram error to occur when it is evaluated. 


Checking error will inevitably occur at execution time 


This error indicates that the compiler has detected a_ condition 
related to a particular construct which will cause an execution time 
error. 


This error may occur at an assignment or at a routine call in which 
parameters are passed. It indicates that the range of the source 
expression (a scalar) does not overlap the declared range of the 
target. For example, the following assignment would cause this 
error to occur: 


var I: 1..103 
J: 10..203 


J+1; (¥target's range: 1..10; source's range: 11..21 *) 
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[ee LBOUND/HBOUND dimension number is invalid for variable 


Low bound of subscript range is too large in magnituda 


The indicated array definition has an illegal subscript range which 
causes addressing code to be outside the range of the target 
machine's capability. 

The ORD of all SET moambers must lie within 0..255 


The ordinal value of any valid set member may not be less than 0 nor 
greater than 255. 


Length fields not applicable to non-TEXT files 


A non-text file READ or WRITE contains a length qualified parameter. 
Length specifications have no meaning in non-text file I/0. 
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STRING variable is smaller than file component 


The error occurs when an attempt is made to perform a READ operation 
from a file of STRINGs into a string variable in which truncation is 
possible. The string variable must be declared with at least the 
same length as the file component. 


Routines passed as parameter must be at outermost nesting level 


An attempt is being made to pass a routine as a parameter, but the 
routine being passed is nested within another. As a Pascal/VS 
restriction, routines being passed as parameters must not be nested 
Within another routine. 


Recursive type reference is not permitted 


The compiler detected a degenerate type declaration of one of the 
following forms: 
I. type X; 
Il. type ax; 
III. type record 


aoe 


Fi xX; 
end — 
This SET operation Will always produce the NULL set 


Two disjoint sets are being intersected. The result will always be 
the null set [€ ]. For example, 


var Sl: set of 0..10; 
$2: set of 11..20; 
$3: set of 0..20; 
begin 


$3 := Sl * $2; (*% <== always produces the NULL set *) 


end 
ELSE clause without associated IF statement 


A else symbol was detected that is not part of an if statement. 
This error often occurs when the preceding then clause of an if 
statement is terminated with a semicolon (3). 


Must be an UnPACKED array 


The indicated array variable is erroneously declared as packed when 
the context requires it to be unpacked. 


Must be a PACKED array 


The indicated array variable should have been declared as packed, 
but was not. 


Unrecognizable procedure/function directive 


The indicated identifier was interpreted as a procedure or function 
directive but was not recognizable. The following are the only 
recognizable directives: 
- FORWARD 
- EXTERNAL 
FORTRAN 
MAIN 
REENTRANT 
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165 FORTRAN SUhhouT inne: may ee: he paseed cs ‘perensters 


Only Pascal/vVS routines may be passed as parameters; TORTRFEAN subroun | 
tines may not. 


One way to get around this preblem is to define a Pascal/V¥S prace- 
dure which does nothing more than call the FORTRAN «esthroutineg. The 
Pascal/VS procedure would then be passed in place of the FORTRAN 
subroutine. 


166 FORTRAN subroutine parameters may not be passed by valua ; 


All forma} parameters of a FORTRAN subroutine must be passed by refr 
erence: either by var oor by cons t. ! 


167 FORTRAN funetiens pny return “snl scalar values ! 


A FORTRAN function may enly return values that are scalars (Cincelud- 
ee floating point), 


“1e8 | “INCLUDE member not found in library sts—<C=s~—s—sSSSSSSYS 
The library member which was to be inclucded into the source progriin 
could not be found 

ies | Fioating Roint Goroutational: chek FCO CCStCSC~S Oe ee | 
The ondicated floating point expression causes a program error when 


Stor ua ted . 


170 bata Storede ; exceeds adel es cability of machine 


The memory vsequrred to contain all declared variables within a@ roau- 
j; tine or main program exceeds the capacity of the computer; that is, 
it exceeds 16 megabytes. 


i71 Only STATIC/DEF variables may be tnitislized 


pel he OSS, 


The only clase of variabies which may be itnittalized «t comprise time 
are d3f and static variables. 


Variable's addrese is not compile-time computable 


The indicated value assignment could not be performed. In order "or 
a variable te be initialized at compile-time, its adcdreus 
compile time computable. 


| 173 Array structure has too many elements 


The indicated array structure contains more elements thar was ‘ 
declared vor the array type. 


j 


174 | Repetition fardor applicable to constants only 


+——. 


repetition facter; a general expression may not. i 
me ee I let pe Nae a ns et 
175 No corresponding record fiel d 


The indicated record structure contains more elements than there are 
fields within the record type. 


4 
\ 
Within a array strveture, only a constant may be qualified with a | 


176 This identifier is a reserved name 


An attempt was made to declare an identifier which is a reserved 
name. 
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j 

4 

o | 

a tt 

178 | Identifier vas previously referenced illegally 

| The indicated identifier that was just declared was referenced pre- 
viously within the associated routine. Pascal/VS requires an iden- 
br fver a be declared plot to its use. 


179 “Recursive reference within constant declaration 


A constant declaration of one of the following forms was detected: 
| const X = X; 

or 
canst x = "some expression involving X" 


_Such recursion within a constant declaration is not permitted. 


180 CRepeta ETON factor not applicable to record structures 


The indicated record structure contains a component which is quali- 
fied with a repetition factor. Only array structures are permitted 
to Have repetition factors. 


pe oe Bach cat ecante hacia nwa teens ea meted stead er Newer mea nn ine ante Pave ties eres oar ements a 
} 


“yal | Lahal previously referenced from a GOTO invalidiy 


The gineveoated label was previously referenced in a goto statement 
that in not ai constituent of the statement sequence in which the 
| label is defined. 


Examnol =] 


| 
begin 
| goto LABELI; 
| i for 4 °= 1 to i0 da 
bean 
| | LABELL ALT) += 03) ¢¥<=slabel was previously referenced invalidly*) 
| | end, 
| } Bi ia 
fe---= = sg Pac alts tds ae Be aA pales a teem ee ee a a acta ete cee a tat ee te a oS 
{ : ‘ 
l 182 i 4 gore may not reference a label within a separate stmt sequence 
The tndicated goto statement references a label which was previously 
defined within a statement sequence of which the goto is not a con- 
{ sti tuentk Such a teference 15 not permitted. 
Example 
| 
: begin 
| for [T.:= 1 to 10 de 
beqin 
LABELL. ALT «= 03 
end, 
gato LABELT; (é™<="invalid reference of label *) 
end 
183 CASE label outside range of indexing expression 


is outside the range of the indexing expression. For example, 


var dT: 8@..19; 
begin 
case [k2 of (*¥range of index i5 0..20 %) 
Geo... 
1..2G: : 
30% 1... C¥<=2 this label is sut of range of index) 
end 


| The indicated case label within a case statement has a value which 
end 
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Second operand of MOD operation must be positive integer 


The indicated expression involving the mod operator was found to be 
invalid; the second operand is required to be a positive integer. 


Routine is not defined in standard Pascal 


This warning may be- produced when the LANGLVLCSTANDARD) compiler 
option is specified. The indicated call statement refers to a pre- 
defined Pascal/VS routine which does not exist in standard Pascal. 


Directive only applies to procedure, not to a function 


The indicated procedure directive ("MAIN”™ or “"REENTRANT") is being 
applied to a function declaration. The directive is not supported 
for functions. 


First parameter of REENTRANT procedure must be an integer by var 


The indicated procedure declaration in which the directive 
"REENTRANT" was specified, failed to comply with the parameter list 
requirement for such a= procedure: the first parameter of a 


"REENTRANT" procedure must be a pass-by-reference (specified with 
the var reserved word) integer in which a pointer to the Pascal/V5 
environment is saved between calls. 


Simple constant required 


A constant expression which required compile-time computation was 
found where a simple constant is required. This is often a warning 
message that may be produced when the LANGLVLCSTANDARD) compiler 
option is specified. 


“Percent directives are not recognized in standard Pascal 


This warning may be produced when the LANGLVLCSTANDARD) compiler 
option is specified. All compiler directives which appear in the 
Source program with the percent (%) prefix are Pascal/VS extensions 
and are not supported in standard Pascal. 


FOR- or WHILE-loop has no statements within its body 


This jis a warning message to indicate that a for-statement or 
while-statement loops on an empty statement. Such a case is often 
not the programmer's intent. 


Examples 


while A > 0 do; 


for I := 1 to J do; 


PACKED subranges not supported in standard Pascal 


This warning may be produced when the LANGLVLOSTANDARD) compiler 
option is specified. Subrange type definitions may not be "packed" 
in standard Pascal. This feature is a Pascal/VS language extension. 
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Variable is not properly aligned 


The indicated variable is being passed as a Var parameter and the 
compiler has detected that its address may not be properly aligned. 
(For example, passing a full word integer which has an address that 
is not on a word boundary.) 


On most models of the 370 series, the manipulation of objects which 
are not properly align will result in a penalty in execution speed. 


This warning will be produced even if the variable is just poten- 
tially missaligned (as in the case of a subscripted variable). 


Recursion datected in "“%INCLUDE” processing lib(mam) 

Source text which was included from member "mem" in library "lib™ by 
means of the a %INCLUDE directive contains in itself a %INCLUDE 
directive which directly or indirectly references the same member 
recursively. This error causes immediate termination of the compi- 
lation. 

Example 


Source program: Member TYPES: 


program EXAMPLE; REC = record 

type NAME: STRINGC10); 
%include TYPES; AGE : 0..99; 

begin 


end 
%Zinclude TYPES; (xX<===ERROR 500%) 
end. 
Too many nesting levels in "*%INCLUDE” processing lib(mem) 
A “INCLUDE directive was detected which is nested 8 levels deep 
within a stack of "includes". "Included" source text may not be 


nested beyond 8 levels. This error causes immediate termination of 
the compilation. 


Unable to open "%INCLUDE™ library: libname 
The include library named "libname" could not be opened. Possible 
causes are that the DDname was not assigned or the DCB attributes of 
the library are not correct. This error causes immediate termi- 
nation of the compilation. 
Identifier used in type definition at line nnn is out of context: xxxx 
The identifier '"xxxx' appeared in a pointer type definftion of the 
form '->xxxx' at line ‘'nnn', but the identifier was subsequently 
declared as something other than a type. 
Example: 

type X = ~->Y; 


var Y: INTEGER; C% <=== would cause error 600 to ba generated *) 


Type identifier referenced at line nnn is undeclared: xxxx 

The identifier "xxxx" appeared in a pointer type definition of the 
form ‘'->xxxx' at line 'nnn', but the identifier was not subsequently 
declared. 

Label xxxx Was declared and/or referenced but was not defined 


The label named 'xxxx" was declared and/or referenced from within 
the associated routine, but was not ever defined. 


procedure/function xxxx was forwarded but not resolved 
The procedure or function named *xxxx' was declared with the direc- 


tive "FORWARD", but the body of the routine was not subsequently 
declared. 
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ae! 
AMPOOO01S 


Routine ‘name’ is too large to compile at stmt n 


The indicated routine has too many statements to compile; a 
fixed-length table of the compiler has overflowed. The last 
statement that was successfully processed was statement "n'". 
ie routine should be divided into two or more separate rou- 

ines. 


AMPTOGIE Inevitable NIL pointer error will occur 


The code optimizer of the compiler has datermined that a nil 
pointer checking error will inevitably occur at execution time 
at the specified routine and statement. Example: 


begin 
P := nil 
WRITELNCPA.1)3 C¥<===SAMPTOOLE - inevitable error) 
end; 


AMPTOQ2E Inevitable high bound error will occur 


The code optimizer of the compiler has datermined that a high 
bound checking error will inevitably occur at execution time at 
the specified routine and statement. Example: 


var I : 1..10; 
J : INTEGER; 
begin 
J := 11; 
a = J; C¥<==SAMPTOOZE - inevitable error) 
ena; 


Inevitable low bound error will occur 


AMPTOOSE 


The code optimizer of the compiler has determined that a low 
bound checking error will inevitably occur at execution time at 
the specified routine and statement. Example: 


var I 1..10; 


Ge 


INTEGER; 
begin 
J = 03 
Io:= J3 C¥<===AMPTOOSE - inevitable error) 


end; 


AMPTOOSE Function routine does not return a value 


The code optimizer of the compiler has determined that the spe- 
cified function routine does not return a result. Example: 


function (var I: INTEGER): INTEGER; 
begin 
READLNC(I); 


end; C¥<===AMPTO05 function did not raturn a rasult*) 


AMPTOO6E Expression is too complicated at stmt nnn of routine xxxxxxxx 


The expression in statement "nnn" of routine "xxxxxxxx"” is too 
complex to compile and should be broken up into multiple state- 
ments. If the indicated statement contains a relatively simple 
expression, then the Pascal/VS support group should be 
notified. 
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Routine "name" contains too many statements. Max=n 


The statement table being generated overflowed in the specified 
routine. The routine should be divided into two or more rou- 
tines. 


Record type contains too many fields 


The DEBUG compiler option was specified and a record type defi- 
nition was compiled that contains too many fields to be accomo- 
dated in the debugger type table. If this error should occur, 
the resulting code may not work properly when the interactive 
debugger is enabled. 


Routine “name” exceeds 8K limit at stmt n 


The specified routine caused more than 8192 bytes of code to be 
generated starting at statement number "n", Since Pascal/VS 
only reserves two base registers to address code, 8192 bytes is 
the limit. The indicated routine should be divided into two or 
more separate routines. 


Field name space pool overflowed 


The DEBUG compiler option was specified and a large number of 
record type definitions were compiled. The debugger table 
which contains the record field names overflowed. If this 
error should occur, the resulting code may not work properly 
when the interactive debugger is enabled. 


Type table overflow. Debug is disabled 

The module being compiled with the DEBUG option contains more 
than 256 unique data types. The type table being generated for 
the interactive debugger may contain no more than 256 entries. 
The interactive debugger may not be used on this module. 
Compiler error notify Pascal/VS Support 

An error was detected in the first pass of the compiler. 
this error should occur, please notify Pascal/VS support 
IBM. 

Notify Pascal/vS Support - Optimizer Error 


An error was detected in the second pass of the compiler. 


a error should occur, please notify Pascal/VS support 


Notify Pascal/VS Support - Translation error 


An error was detected in the third pass of the compiler. 
oa error should occur, please notify Pascal/VS support 
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17.2 EXECUTION TIME MESSAGES 


Se 
AMPXOLIE 
4 


- 


AMPXO15E 


Message and Explanation 
a ees EES 
Operation exception 


An operation exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas- 
cal program or due to a ‘'wild' assignment through an uninitial- 
ized pointer. 


Privileged exception 


A privileged exception occurred in the program. The’ error is 
Probably in an assembly language routine linked with your Pas- 
cal program. 


Execute exception 


An execute exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas- 
cal program. 


Protection exception 


A protection exception occurred in the program. The error is 
Probably due to a ‘wild’ assignment through § an uninitialized 
pointer, or to an array assignment with a bad subscript (with 
checking off). 


Addressing exception 


An addressing exception occurred in the program. The error is 
probably due to a ‘wild’ assignment through an uninitialized 
pointer, or to an array assignment with a bad subscript (with 
checking off). 


AMPX016E 


AMPXO17E 


AMPX018E 
~ 
AMPX020E 
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Specification exception 


A specification exception occurred 
probably in an assembly language 
cal program. 


in the program. The error is 
routine linked with your Pas- 


Data exception 


A data exception occurred in the program. The error is probably 
in @ non-Pascal routine linked with a Pascal program. 


Fixed point overflow exception 


A fixed-point overflow exception occurred in the program. The 
error is probably due to an addition, subtraction, or multipli- 
cation that resulted in an integer with a magnitude which 
exceeds MAXINT. 


Fixed point divide by zero exception 


A fixed point divide by zero exception occurred in the program. 
The error is due to a div operation in which the second operand 
(the divisor) has the value zero. 


Decimal overflow exception 


A decimal overflow exception occurred in the program. The error 
is probably occurred in a non-Pascal routine linked to the Pas- 
cal program. 


Decimal divide by zero exception 


A decimal divide by zero exception occurred in the program. 
The error probably occurred in a non-Pascal routine linked to 
the Pascal program. 


Exponent overflon exception 


An exponent overflow exception occurred in the program. The 
error is probably due toa floating point multiplication or 


AMPXO2I1E 
AMPX022E 

division which produces a result with a magnitude greater than 

7.23700557733226E75. 


AMPXO023E Exponent underflow exception 
An exponent underflow exception occurred in the program. The 
error is probably due toa floating point multiplication or 
division which produces ae result with a magnitude less than 


5.39760534693403E-79. 
AMPX024E 


AMPX029E 
AMPX030E 


AMPXO31E 
| 


Significance exception 


This exception is not intercepted by the Pascal/VS run time 
environment. If it should occur, then the Pascal/VS run time 
environment may have been locally modified. Contact your local 
system support. 


Floating point divide by zero exception 


A floating point divide by zero exception occurred in the pro- 
gram. The error is caused by an attempt to divide by zero. 


Seament translation exception 


This is a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Page translation exception 


This is a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Translation specification exception 


This is a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Special operation exception 


This is a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Terminal attention exception 


An attention was signaled from the users terminal. 


Low bound checking error 


Either the value of an array subscript, or the value being 
assigned to a subrange type variable is less than the minimum 
allowed for the subscript or subrange. This error may also 
result if the mod operation is attempted for which the second 
operand (the divisor) is less than or equal to zero. 


High bound checking error 


Either the value of an array subscript, or the value being 
assigned to a subrange type variable is greater than the maxi- 
mum allowed for the subscript or subrange. 
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AMPXO33E 


AMNPX034E 


Nil pointer checking error 


An attempt vias made to reference a dynamic variable from a 
pointer which has the value nil. 


Cas@ label checking error 


The expression of a Case-statement 
of the specified case labels and there 


has a value other than any 
1s no otherwise clause. 


ANPXO35E 


— 


Function value checking error 


A function routine returned to its itnvoker without being 


assigned a result. 


AMPXO36E 


AMPXO37E 


he 
ANPXO38E 


The expresston of an assert statement computed to the value 


FALSE. 


String subscript out of bounds checking error 


The subscript on a STRING was not in the range 0..LENGTH(s), 
where 5s 15 the STRING being subscripted. 


Error 38 not assigned 


This error number has not been assigned a meaning. 


AMPXOIJ9E 


String truncation checking error 


An assignement into a STRING variable could not be performed 
because the length of the source string is longer than the max- 
imum length of the destination string. 


AMPX0415 


File could not be opened: DDNANE 

An error occurred when an attempt was made to open the file 
with the indicated DDname. The most probable cause of this 
error ts a missing DDname definition. Under CMS, this error 
will occur when attempting to open a file that does not have a 
record format of 'F' or 'V*. 


AMPX042E 


Lrecl size too small for file DDNAME 


The logical record length of the file with the 
1s not large enough 


indicated DDNAME 
to contain a single file component. 


AMPX043E File is not open for output: DDNAME 


input. 


An output operation was attempted on a file open for 


AMPX044E 


i 


File is not open for input: DDNAME 


An input operation was attempted on a file open for output. 


AMPXO45E 


Logical record is too small in input file 
The logical record length of a particular record within a vari- 
able record length file is not large enough to contain a file 


component. 


ANPXO46E 
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Data larger than lrecl for file 


The logical record length of a file is too small to contain the 


file's component. 
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Invalid Input/Output option: xxxxx... 


The options string passed to the procedure’ contains an incor- 
rect or invalid option. 


( AMPX047E 
AMPX048E 


AMPX049E Floating point overflow/underflow 
The floating point number read by procedure READ was either too 
large or too small to be represented within the machine. 


AMPXOS0E BLKSIZE exceeds 32760 in file DDNAME 
A block size was specified that exceeds 32760 which is the max- 
imum length of a block. 


LRECL > BLKSIZE-4% in V format file: DDNAME 


Missing member in file: member library 


The indicated member could not be found in the partitioned data 
set. 


The logical record size was too large to permit at least one 
record to be fit in a block. 


BLKSIZE not integer multiple of LRECL in DDNAME 
The specified block size for a fixed-length record file is not 
an integer multiple of logical records. 


Component length of file exceeds 32760 in DDNAME 


A single element must fit in one logical record, therefore its 
length is restricted to 32760 bytes. 


'S AMPX054E GET or READ called after end-of-file in DDNAME 


An attempt was made to advance the file beyond the end-of-file. 
AMPXO055E Integer READ operation failed for file DDNAME 
An attempt was made to read an integer from a text file, but 


either the end-of-file occurred, or unrecognizable character 
were detected where the integer should have been. 


AMPX056E Overf lon/underf low detected in integer READ: DDNAME 
An attempt was made to read an integer which has a value that 
does not lie within the range -2147483648. .2147483647. 

AMPX057E Invalid run time option: 
An invalid option was specified when invoking a Pascal/VS pro- 
gram. A runtime option is specified preceeding a_ slash '/' 
when invoking the program. 


AMPXO0581 OPEN and INTERACTIVE are no longer supported, use READ/WRITE 
The procedures OPEN and INTERACTIVE are not supported in Real- 
ease 2.0. The Pascal/VS Programmer's Guide $H20-6162-1 and the 


Pascal/VS Reference Manual SH20-6168-1 describes the equivalent 
operations. 
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AMPXO059E Text exceeds logical record length in file "name" 


A line of data is being written to the text file whose DDname 
is "name" and the line exceeded the logical record length of 
the file. As a recovery, the line is terminated at the end of 
the logical record and the remaining text of the line is placed 
in the next logical record. 


For each file being written, this error will be diagnosed only 
on the first occurrence; subsequent violations will not be 
diagnosed. 


ANPX060E Cperand to RELEASE does not correspond to MARK 


The parameter passed to RELEASE did not have the value returned 
by a call to MARK. 
AMPXOG1E Operand to DISPOSE not allocated with NEW 


A DISPOSE operation was attempted for a pointer which did not 
have a valid value as would have been returned by NEW. 


AMPX063E Operand to DISPOSE already deallocated 


An attempt was made to perform a DISPOSE operation on a pointer 
which referenced heap storage which had been previously 
released. 


AMPX064E 


Insufficient space to do NEW 


There was not enough storage available to perform the NEW pro- 
cedure. You should execute the program in a larger region (0S) 
or in a larger virtual machine (CMS). Also, you may not be 
calling DISPOSE for storage you no longer need. 


AMPX065E Storage has been incorrectly assigned prior to DISPOSE 


The pointer being disposed of was used incorrectly, namely, the 
pointer caused the heap to be modified beyond the size of the 
dynamic variable. This could happen if the dynamic variable 
was a record that was allocated by specifing tag values and 
then it was later used to assigning to a different variant. 


AMPX066E 


AMPX067E 
AMPXO70E 
AMPXO71E 


= 
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Operand to DISPOSE is NIL or undefined. 
The operand is not valid for DISPOSE. 


Heap incorrect due to previous invalid assignment using a pointer 


The heap has been damaged, the cause of the damage was probably 
due to a pointer being used incorrectly. 


LN: argument <= 0.0 


The natural logarithm function (LN) was called with a 0 or neg- 
ative argument. 


SQRT: argument < 0.0, zero returned as result 


The square root function (SQRT) was called with a negative 
argument. 


EXP: argument too large, exceeds 174.67309 


The argument of the EXP function is too large; the result of 
the call exceeds the largest real number that can be repres- 
ented: 7.237e+75. 
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¢ AMPXO73E RANDOM: seed is out of range 


The function RANDOM was called with an argument which is either 
negative or greater than 1048575 (which is the allowed 
maximum). 


AMPX074E SIN/COS: argument too large, exceeds (PI/2)*%*50 


A call to SIN or COS Was made with an argument that is too 
large for an accurate result to be computed. 


AMPX075E SEEK called for a file not opened for DIRECT access 


AMPX076E SEEK: bad relative record address 


The record number in an invocation of SEEK has an invalid 
value. 


AMPX077E Direct access file does not have fixed unblocked records: DDNAME 


An attempt was made to perform direct access (relative record) 
operations on aefile that was either not fixed or not 
unblocked. The required record format for a file to be manipu- 
lated with SEEK is RECFM=F. 


AMPX078E Target string filled to maximum length in WRITESTR call 


The target STRING (first parameter) in a call to WRITESTR was 
filled to capacity before the data being assigned into the 
STRING was exhausted. 


AMPXO079E Source string exhausted in READSTR call 


( Prior to reading all data from the the source string (first 
parameter), the end of the string was encountered. 


AMPXO8I1E LPAD: PADDING exceeds maximum length of string 


The specified pad length (second operand) exceeds the maximum 
allowed length of the target string (first parameter). 


AMPXO082E DELETE: Length parameter less than zero 


AMPXO83E DELETE: starting index is less than 1 
AMPX084E DELETE: substring not contained within source string 


AMPXO85E Set operation out of bounds 


An attempt to perform a set operation in which the resulting 


set contained members which are outside the range of a target 
set. This can occur ina_e set assignment in which the source 
set contains members which are not valid for the declared type 
of the target set. 


AMPXO86E SUBSTR: Length parameter less than zero 
AMPXO87E SUBSTR: starting index is less than 1 
AMPXO88E SUBSTR: substring not contained within source string 
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=“ 
AMPX2001 


AMPX999S 


RPAD: padding exceeds maximum length of string 


The specified pad length (second operand) exceeds the maximum 
allowed length of the target string (first parameter). 


The module must be linked with DEBUG for debugger features 


An attempt was made to invoke the interactive debugger ona 
module that was not linked with the debugger library. 


The module must be linked with DEBUG for symbolic dump 


An execution time error occurred and a_ symbolic dump of the 
offending routine was attempted, but the module in’ which the 
routine is located was not compiled with the DEBUG option. 


Error occurred while executing ONERROR routine 


An execution time error has occurred while ONERROR was execut- 
ing. ONERROR is a user provided procedure to diagnose exe- 
cution errors and determine the correct course of action. 


NOTIFY PASCAL/VS SUPPORT: RECURSIVE ERROR IN RUNTIME ENVIRONMENT 


A second error was encountered while Pascal/VS was recovering 
from the first error. The program is terminated because any 
further processing would probably result in a CPU bound loop. 
You should notifiy Pascal/VS Development if this error 
persists. 


156 Pascal/VS Programmer's Guide 


17.3 MESSAGES FROM DEBUG 


AMPDSO2 There is no routine named * in module 

ANPD503 Invalid qualification specification: 

AMPDSOS Module name must be specified 

ANPDS507 Maximum number of breakpoints have been set 
AMPDSO8 Specified breakpoint does not exist 


is an automatic variable local to a non-active routine 
ANPDS10 Field qualified variable is not a record 


AMPDS11 is not a valid record field 
AMPDS512 Subscripted variable is not an array 
AMPD513 Array subscript is not a scalar 


AMPD514 Invalid symbol: 


AMPDS15 Array subscript is out of bounds: 


AMPDS16 Missing symbol: 


AMPD517 Associated variable is not a pointer 
AMPD518 Pointer variable does not contain valid address 
AMPD519 not found in symbol table 


AMPD520 Equate substitution is in infinite recursion 


~ 
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AMPDS21 EQUATE expansion causes command truncation(exceeds 255 characters 


You are not in CMS, command not valid 


Debug command not recognized: 


AMPD524 Invalid character in hexadecimal string: 


AMPDS525 Invalid hexadecimal string 
AMPD526 Routine is not active 
AMPDS527 Qualification set to module 
AMPDS528 The Word “EQUATE” may not be redefined 
AHPDS529 Maximum number of EQUATE''sS have been set 


AMPD530 There are no EQUATE’'s currently set 


Statement table missing 


ANPD531 


Trace requires GOSTMT option 


There are no active variables 


AMPD534 Routine is not active: 


_ 
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17.4 MESSAGES FROM PASCALVS EXEC 


The following messages are given by the They are shown below with their associ- 
PASCALVS EXEC of CMS to indicate the ated return codes. 
status of the compiler’ invocation. 


RC Message and Explanation 
EEE OEE EEE EE eee 


1 File name is missing 

The exec was invoked without specifying a file name. 
2 Unable to find "fn" PASCAL 

The specified file name could not be found. 

16 | Unable to find the ‘'name" HACLIB 

The specified maclib file could not be found. 

32 | Hore than 8 maclibs specified 


The maximum number of MACLIBS that may be specified when invoking 
the PASCALVS EXEC is eight. 
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APPENDIXES 


"Appendix A. Command Syntax Notation” on page 163 
"Appendix B. Installation Instructions” on page 165 
"Appendix C. Additional Library Procedures and Functions” on page 175 


"Appendix D. VM/PC Pascal/VS User's Guide” on page 178.3 
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The syntax notation used to illustrate 
TSO commands is explained in the manual 


TSO Command Language Reference 
(6028-0646). The notation used _ to 


illustrate CMS commands is explained in 
the manual VM/370: CMS Command and Mac-— 
ro Reference (GC20-1818). 


Briefly, the conventions used by both 
notations are as follows. 


° Items in brackets [ ] are optional. 
If more than one item appears in 
brackets, then no more than one of 
them may be specified; they are 
mutually exclusive. 


A.0 COMMAND SYNTAX NOTATION 


Items in capital letters are 
keywords. The command name and 
keywords must be spelled as shown. 


Items in lowercase letters must be 
replaced by appropriate names or 
values. 


Items which are underlined repre- 
sent defaults. 


The special characters " ( ) ® must 
be included where shown. 
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This section describes how to install 
Pascal/VS under OS/VS5S2 and CMS-VM/370 
from the distribution tape. 


All VS2 partitioned data sets (other 
than the compiler source) were stored 
on the tape by using the IEBCOPY utili- 
ty program. VS2 sequential data sets 
were stored by using the IEBGENER util- 
ity program. 


The CMS version of the package is 
located at file 12 on the tape. It was 
stored by using the TAPE DUMP command. 


The source of the compiler was stored 
using the utility program IEBUPDTE. 


The files on the distribution tape con- 
tain the following data sets. 


File 1: INSTALL.CNTL 
A sample of the job control lan- 
guage (JCL) required to install 
Pascal/VS under OS/VS2 (MVS). 


File 2: LOADSRC.CNTL 
A sample of the job control lan- 
guage (JCL) required to load the 
Pascal/VS source from the dis- 
tribution tape. 


File 3: PASCALVS.CONTENTS 
A sequential data set which lists 
the contents of the Pascal/VS 
package. 


File 4: PASCALVS.LINKLIB 
A partitioned data set which con- 
tains the modules of the 
compiler. 


File 5: PASCALVS.LOAD 
A partitioned data set which con- 
tains the Pascal/VS run time 
library. 


File 6: PASDEBUG.LOAD 
A partitioned data set which con- 
tains the Pascal/VS debug 
library. 


File 7: PASCALVS.MACLIB 
The standard include library. 


File 8: PASCALVS.CLIST 
A partitioned data set contain- 
ing two clists: PASCALVS) and 
PASCMOD. 


File 9: PASCALVS.PROCLIB 
A partitioned data set which con- 
tains the JCL cataloged proce- 
dures for running the compiler as 
a batch job under MVS. 


File 10: SAMPLE. PASCAL 
A partitioned data set contain- 
ing sample programs. 
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APPENDIX B. INSTALLATION INSTRUCTIONS 


File 11: PASCALVS.MESSAGES 
A sequential data set which con- 
tains the compiler messages. 


File 12: CMS dump of 
Pascal/vsS package: 


- PASCALVS CONTENTS 
A listing of the contents of 
the Pascal/VS package. 


- PASCALS MODULE 
A program that issues all 
necessary FILEDEF commands 
to CMS prior to invoking the 
compiler. 


the entire 


- PASCALL MODULE 
The first pass of the compil- 
er. 


- PASCALO MODULE 
The second pass of the com- 
piler. 


~- PASCALT MODULE 
The third pass of the compil- 
er. 


- PASCALL TXTLIB 
the txtlib from which PAS- 
CALL MODULE was generated. 


~ PASCALO TXTLIB 
the txtlib from which PASCA- 
LO MODULE was generated. 


- PASCALT TXTLIB 
the txtlib from which PAS- 
CALT MODULE was generated. 


- PASCALVS TXTLIB 
The Pascal/VS run time 
library. 


- PASDEBUG TXTLIB 
The Pascal/VS debug library. 


~- PASCALVS MACLIB 
The standard 
library. 


- PASCALVS EXEC 
CMS EXEC which invokes the 
compiler 


“ZINCLUDE 


- PASCALVS CMSHELP 
Help file that is accessed 
when "PASCALVS ” is 
invoked. 


- PASCMOD EXEC 
CMS EXEC which creates a load 
module from a compiled Pas- 
cal/VS program. 


- PASCALVS MESSAGES 
List of the compiler mes- 
sages. 
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- LOADSRC EXEC 
An EXEC which will load the 
source of the compiler from 
the tape. 


= SAMPLE PASCAL 
A sample program. 


- PRIMGEN PASCAL 
A sample program. 


File 13: PASCALL. PASCAL 
The source of the first pass of 
the compiler. 


File 14: PASCALO. PASCAL 
The source of the second pass of 
the compiler. 


File 15: PASCALT.PASCAL 
The source of the third pass of 
the compiler. 


File 16: PASCALD. PASCAL 
The source of the interactive 
debugger. 


File 17: PASCALX.PASCAL 
The source of the runtime library 
routines. 


File 18: PASCALX.ASM 
The source of the operating sys- 
tem interface routines. 


File 19: MACLIBL.PASCAL 
Include library for first pass of 
the compiler. 


File 20: MACLIBO. PASCAL 
Include library for second pass 
of the compiler. 


File 21: MACLIBT.PASCAL 
Include library for third pass of 
the compiler. 


File 22: MACLIBD. PASCAL 
Include library for interactive 
debugger. 


File 23: MACLIBX.PASCAL 


Include library for runtime rou- 
tines. 


B.1 INSTALLING PASCAL/VS UNDER CMS 


To install Pascal/VS under CMS perform 
the following: 


17 800 byte blocks are assumed. 
a 3330 disk. 


1. Have the distribution tape mounted 
at address 181. 


2. Link to the mini-~disk Cin write 
mode) where the compiler is to be 
stored. This is done with the CP 
LINK command. The mini-disk must 
have at least 2300 blocks of free 
storage?’. 

3. Access this) disk with the ACCESS 

command. 


4. Execute the 
commands: 


following two 


TAPE FSF 11 
TAPE LOAD * * m 


where "m" jis the single letter file 
mode of the disk that was accessed in 
the previous step. 


B.1l.1 Regenerating Compiler Modules 


To fix bugs that are discovered in the 
compiler often requires modules of the 
compiler to be recompiled.}® To replace 
a compiled module (a text deck) of the 
compiler, execute the following two 
commands: 


TXTLIB DEL PASCALx AMPxcccc 
TXTLIB ADD PASCALx AMPxecccc 


where "PASCALx” is either PASCALL, PAS- 
CALO, or PASCALT, depending on which 
phase of the compiler is being fixed; 
"AMPxcccc”™ is the module name being 
replaced. 


After the appropriate text modules have 
been replaced, then the associated load 
module will need to be regenerated. To 
regenerate PASCALL MODULE, execute the 
following: 

PASCMOD AMPLMAIN PASCALL CNAME PASCALL 


To regenerate PASCALO MODULE, execute 
the following: 


PASCMOD AMPOMAIN PASCALO CNAME PASCALO 


To regenerate PASCALT MODULE, execute 
the following: 


PASCMOD AMPTMAIN PASCALT CNAME PASCALT 


This amount is equivalant to 9 cylinders on 


18 The Pascal/VS compiler is written entirely in Pascal/VS and is self-compi- 


ling. 
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//JOBNAME JOB ,REGION=50K 
//STEP1 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSQUT=% 
//SYSUT1 DD DSN=PASCALVS.INSTALL.CNTL, 
VOL=SER=TAPEVOL, 
UNIT=TAPE,LABEL=(1,NL), 
DCB=(LRECL=80,RECFM=FB, BLKSIZE=3120,DEN=3), 


DISP=OLD 


DSN=XXXXXXXX. INSTALL.CNTL,DISP=CNEW,CATLG), 
DCB=C(LRECL=80,RECFM=FB,BLKSIZE=3120), 


UNIT=3330,VOL=SER=DISKVOL, 


SPACE=CTRK,(1,1)) 
//SYSIN DD DUMMY 


Figure 96. Sample JCL to retrieve first file of distribution tape. 


B.2 INSTALLING PASCAL/VS UNDER VS2 


This section explains how to install 
Pascal/VS under an OS/VS2 system. 


B.2.1 Loading Files from Distribution 
Tape 


A sample of the job control language 
required to install Pascal/VS under VS2 
(MVS) is stored as the first file of 
the distribution tape. To retrieve 
this data set, the utility program IEB- 
GENER must be used. The JCL shown in 
Figure 96 may serve as a model job to 
retrieve this file. DD operands which 
are high-lighted will require modifi- 
cation to suit your installation 
requirements. The serial number of the 
distribution tape must be placed where 
the name "TAPEVOL" appears in the DD 
card named SYSUT1. 


The data set name (DSN=) in the DD card 
named SYSUT2 is arbitrary. It is the 
name of the data set where the first 
file on the tape is to be stored. The 
appropriate UNIT and volume serial num- 
ber for disk storage must be specified 
for DD SYSUT2. 


Figure 97 on page 168, Figure 98 on 
paye 169, and Figure 99 on page 170 
contain a listing of the first file of 
the distribution tape. The following 
modifications are required prior to 
submitting this job. 


° The name "TAPEVOL” must be replaced 
with the volume serial number of 
the distribution tape in the DD 
statement named SYSUT1 in job step 
STEP1. 
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The UNIT specification for tapes 
has been given the generic name of 
"TAPE"; this should be changed to 
the appropriate generic at your 
installation. 


The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 
the appropriate specification at 
your installation. 


The disk volume on which Pascal/VS 
is to be installed must be speci- 
fied where indicated ("BISKVOL") 
in the following DD statements: 
in STEP1: SYSUT2 
in STEP2: SYSUT2 
in STEP3: DS4, DS5, DS6, 
DS7, DS&, DSI, 
DS10 
in STEPS: SYSUT2 


The DD statements named SYSUT3 and 
SYSUT&4 in job step STEP3 represent 
temporary work storage. The gener- 
ic name "SYSBDA" is used as a UNIT 
specification; this should be 
changed to the appropriate generic 
at your installation. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the sample job, DEN 
is set to 3 which indicates a tape 
density of 1600 BPI. If your dis- 
tribution tape is at some other 
density, then the DEN operands 
should be changed accordingly. 


The high level qualifier of data 
set names that are to be cataloged 
should be modi fied to follow 
installation conventions. (The 
examples in this manual assume a 
high level qualifier of "SYS1". ) 


//INSTALL JOB »REGION=128K 

77% 

11% FILE 2 -- SOURCE INSTALLATION JOB 

77/¥* 

//STEP1 EXEC PGM=IEBGENER 

//S8YSPRINT DD SYSOUT=x 

//8YSUT1 DD DSN=LOADSRC.CNTL, 
VOL=(,RETAIN, SER=TAPEVOL), 
UNIT=TAPE, LABEL=(2,NL), 
DCB=(LRECL=80, RECFM=FB, BLKSIZE=3120,DEN=3) » 
DISP=(OLD,PASS) 
DSN=SYS1.LOADSRC.CNTL,DISP=C(NEW,CATLG), 
DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(3120,(1,1)) 

//SYSIN DD DUMMY 

7/¥ 

/1% FILE 3 -- PASCALVS CONTENTS 

7/¥ 

//STEP2 EXEC PGM=IEBGENER 

//SYSPRINT DD SYSOUT=x 

//S5YSUT1 DD DSN=PASCALVS.CONTENTS, 
VOL=REF=*.STEP1.SYSUTL, 
UNIT=TAPE, LABEL=(3,NL), 
DCB=(LRECL =80, RECFM=VB, BLKSIZE=3120,DEN=3), 
DISP=(OLD,PASS) 
DSN=SYS1.PASCALVS. CONTENTS, DISP=(NEW,CATLG), 
DCB=(LRECL=80,RECEM=VB, BLKSIZE=3120), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(3120,(1,1)) 

//SYSIN DD DUMMY 

77/% 

77% -~ PASCALVS.LINKLIB 

77% PASCALVS.LOAD 

77% PASDEBUG.LOAD 

71% PASCALVS.MACLIB 

71% PASCALVS.CLIST 

/1% PASCALVS.PROCLIB 

77% SAMPLE. PASCAL 

77% 

//STEP3 EXEC PGM=IEBCOPY 

DD DSN=SYS1.PASCALVS.LINKLIB, DISP=(NEW,CATLG), 

DCB=(BLKSIZE=13030,RECFM=U,DSORG=PO), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(TRK,(50,1073)) 
DSN=PASCALVS.LINKLIB, 
VOL=REF=*%.STEP1.SYSUTL, 
UNIT=TAPE, LABEL=(4,NL), 
DCB=BLKSIZE=13030, 
DISP=(OLD,PASS) 


DCB=(BLKSIZE=13030,RECFM=U,DSORG=P0), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(TRK,(14,10,36)) 
DSN=PASCALVS.LOAD, 
VOL=REF=%.STEP1.SYSUTI, 
DCB=BLKSIZE=13030, 
UNIT=TAPE,LABEL=(5,NL), 
DISP=COLD,PASS) 
DSN=SYS1.PASDEBUG.LOAD,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=13030,RECFM=U,DSORG=PO), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(TRK,(9,1,7)) 


Figure 97. Sample installation job: (continued in Figure 98 on page 170) 
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//FILE6 DSN=PASDEBUG.LOAD, 
VOL=REF=*.STEP1.SYSUT1, 
DCB=BLKSIZE=13030, 
UNIT=TAPE, LABEL=(6,NL), 
DISP=(OLD,PASS) 
DSN=SYS1.PASCALVS.MACLIB, DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB, LRECL=80,DSORG=PQ0), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(TRK,(25,2,3)) 
DSN=PASCALVS.MACLIB, 
VOL=REF=%.STEP1L.SYSUTI, 
UNIT=TAPE,LABEL=(7,NL), 
DCB=BLKSIZE=3120, 
DISP=(OLD,PASS) 
DSN=SYS81.PASCALVS.CLIST,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=VB,LRECL=255,DSORG=PO0), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=C(TRK,(3,1,5)) 
DSN=PASCALVS.CLIST, 
VOL=REF=*.STEP1.SYSUT1L, 
DCB=BLKSIZE=3120, 
UNIT=TAPE, LABEL=(8,NL), 
DISP=(OLD,PASS) 
DSN=SYS1.PASCALVS.PROCLIB,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120, RECFM=FB,LRECL=80,DSORG=P0), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=C(TRK,(2,2,2)) 
DSN=PASCALVS.PROCLIB, 
VOL=REF=*.STEP1.SYSUT1, 
UNIT=TAPE,LABEL=(9,NL), 
DCB=BLKSIZE=3120, 
DISP=(OLD,PASS) 
DSN=SYS1.SAMPLE.PASCAL,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSORG=PO0), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=C(TRK, (5,2,2)) 
DSN=SAMPLE.PASCAL, 
VOL=REF=%.STEP1.SYSUTI, 
UNIT=TAPE,LABEL=(10,NL), 
DCB=BLKSIZE=3120, 
DISP=(OLD,PASS) 
//SYSPRINT DD SYSOUT=% 
//SYS8UT3 DD UNIT=SYSDA,SPACE=(TRK,(1)) 
//SYSUT4 DD UNIT=SYSDA, SPACE=(TRK, (1)) 
//SYSIN DD x 
COPY OUTDD=DS4, INDD=FILE4 
COPY OUTDD=DS5, INDD=FILES 
COPY OUTDD=DS6,INDD=FILE6 
COPY OUTDD=DS7,INDD=FILE7 
COPY OUTDD=DS8,INDD=FILE8 
COPY OUTDD=DS9,INDD=FILE9 
COPY OUTDD=DS10, INDD=FILE10 


Figure 98. Sample installation job: Ccontinued in Figure 99 on page 171) 
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17% 
11% FILE 11-- PASCALVS MESSAGES 
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7/%* (Must be stored unblocked because of BDAM access requirements) 


47% 

7/STEP4 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT=x 

//SYSUT1 DD DSN=PASCALVS.MESSAGES, 
// VOL=REF=*.STEP1.SYSUT1, 
4/ UNIT=TAPE,LABEL=(11,NL), 


4/ DCB=(LRECL=64,RECFM=FB, BLKSIZE=3200,DEN=3), 
4/ DISP=COLD,PASS) 

//SYSUT2 DD DSN=SYS1.PASCALVS .MESSAGES, DISP=(NEW,CATLG), 
4/ DCB=(LRECL=64,RECFM=F, BLKSIZE=64), 

/ UNIT=3330,VOL=SER=DISKVOL, 

4/ SPACE=(TRK,(1,1)) 
//SYSIN DD DUMMY 


Sample installation job: 
and Figure 98) 


Figure 99. 


B.2.2 The TSO Clists 


Distributed with the compiler are two 
CLISTs: PASCALVS and PASCMOD. These 
CLISTs reside in the partitioned data 
set PASCALVS.CLIST (file 8 of the dis- 
tribution tape). 


These CLISTs should be stored in a pub- 
lic CLIST library that is accessable to 
TSO users through DDname SYSPROC. 


Each CLIST must be modified so that the 
correct high level qualifier name is 
used to reference the Pascal/VS data 
sets. In PASCALVS, the symbol named 
"FIRSTNAME” should be set to the appro- 
priate name. In PASCMOD, the symbols 
named "LIBRARY" and “DEBUGLIB™ should 
be set to the names of the Pascal/VS 
run time library and the debug library, 
respectively. 


B.2.3 Cataloged Procedures 


Distributed with the compiler are four 
cataloged procedures for invoking the 
compiler from a batch job: PASCC, 
PASCCG, PASCCL, and PASCCLG. These 
procedures reside in the partitioned 
data set PASCALVS.PROCLIB (file 9 of 
the distribution tape). 


These procedures should be stored in a 
cataloged procedure library, so that 
the names will be recognized when ref- 
erenced from a batch job. 


Each procedure must be customized to 
reflect the data set naming convention 
chosen at your installation. For a 


19 This is roughly 9400 800-byte blocks. 


Ccontinued from 


Figure 97 on page 168 


listing of the cataloged procedures see 
“IBM Supplied Cataloged Procedures" on 
page 24. 


B.3 LOADING THE SOURCE UNDER CMS 


The compiler source is stored on the 
distribution tape beginning at file 13; 
that is, 12 tape marks from the begin- 
ning of the tape. It consists of nine 
tape files stored in the IEBUPDTE for- 
mat. To read such a format under CMS, 
the TAPPDS command must be utilized. 


The LOADSRC EXEC, which is provided as 
part of the Pascal/VS package, may be 
used to load all of the source files to 
a single disk. To run this EXEC, per- 
form the following: 


1. Have the distribution tape mounted 
‘at address 181. 


2. Access the disk where the source 
files are to be stored in R/W mode. 
The disk must have the equivalent 
of 35 free cylinders of 3330 stor- 
age.?9 


3. Make sure that there is the equiv- 
alent of at least 2 free cylinders 
of 3330 storage on your "A" disk. 


4. Invoke the LOADSRC EXEC as follows: 
LOADSRC fm 

where "fm" is the single letter 

file mode of the disk to where the 

source files are to be placed. The 


EXEC will print out messages as it 
processes the tape. 


Once the source files have been 


installed, you may find it desirable to pack them in order to save disk 


storage. 
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B.4 LOADING THE SOURCE UNDER VS2 


The compiler source is stored on the 
distribution tape beginning at file 13. 
It consists of nine tape files stored 
in the IEBUPDTE format. 


File 2 of the distribution tape con- 
tains the JCL which copies the source 
files to disk storage. This file is 
unloaded when the compiler is installed 
and has been given the name 
"LOADSRC.CNTL". 


Prior to submitting the job, it must be 
customized as follows: 


e In ddname SYSIN of jobstep STEPI, 
the volume serial number of the 
distribution tape should be placed 
where the name TAPEVOL is shown. 


e The UNIT specification for tapes 
has been given the generic name 
"TAPE"; this should be changed to 
the appropriate generic at your 
installation. 
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The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 
the appropriate specification at 
your installation. 


The disk volume on which the source 
files are to be stored must replace 
the name "DISKVOL" in the DD state- 
ment named SYSUT2 in each job step. 


The high level qualifier for the 
data set names to be cataloged is 
arbitrary. In the supplied JCL, 
the name "SOURCE™ is used. 


If you do not want a listing of the 
source, then DDname SYSPRINT 
should be assigned to DUMMY in each 
of the job steps. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the JCL, DEN is set 
to 3 which indicates a tape density 
of 1600 BPI. If your distribution 
tape is at some other density, then 
the DEN operands should be changed 
accordingly. 


//LOADSRC JOB ,REGION=50K 

77% 

77% FILE 13 -- PASCALL PASCAL ~ PASS 1 SOURCE (COMPILER) 
17% 


7/STEP1 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SQURCE.PASCALL.PASCAL,DISP=(NEW,CATLG), 

// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 

// VOL=SER=DISKVOL, SPACE=(TRK, (132,43,5)) 

//SYSIN DD UNIT=TAPE, VOL=(,RETAIN, SER=TAPEVOL),LABEL=(13,NL), 


4/ DISP=COLD, PASS), 


77 DCB=(LRECL=80, BLKSIZE=3120,RECFM=FB, DEN=3) 
//SYSPRINT DD SYSOUT= 

77% 

17% FILE 14 -- PASCALO PASCAL -—- PASS 2 SOURCE COPTIMIZER) 
17% 


7/STEP2 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALO.PASCAL, DISP=C(NEW,CATLG), 

77 UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
4/ VOL=SER=DISKVOL, SPACE=(TRK, (40,10,5)) 

//SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(14,NL), 


4/ DISP=COLD,PASS), 


77 DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=% 

77% 

17 * FILE 15 -- PASCALT PASCAL - PASS 3 SOURCE CTRANSLATOR) 
77% 


7/STEP3 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALT.PASCAL, DISP=(NEW,CATLG), 

// UNIT=3330, DCB=(LRECL=80, BLKSIZE=3120,RECFM=FB), 
4/ VOL=SER=DISKVOL, SPACE= CTRK, €117,39,5)) 

//7SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(15,NL), 
77 DISP=COLD,PASS), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=% 

77% 

11% FILE 16 -- PASCALD PASCAL ~ DEBUG SOURCE 

77% 


//STEP4 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALD.PASCAL,DISP=(NEW,CATLG), 

77 UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
77 VOL=SER=DISKVOL, SPACE=(TRK,(33,9,5)) 

//SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(16,NL), 
// DISP=(OLD,PASS), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=-FB,DEN=3) 
//SYSPRINT DD SYSOUT=x 

77% 

77% FILE 17 -- PASCALX PASCAL - RUN TIME ENVIRONMENT SOURCE 
77% 


“/STEPS EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOQURCE.PASCALX.PASCAL,DISP=(NEW,CATLG), 

4/ UNIT=3330,DCB=(LRECL=80, BLKSIZE= 3120,RECFM=FB), 
// VOL=SER=DISKVOL, SPACE=(TRK, (69,24,5)) 

//SYSIN DD UNIT=TAFE,VOL= REF= *.STEP1. SYSIN, LABEL= C17,NL), 
// DISP=COLD,PASS), 

4/ DCB=C(LRECL=80, BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=x 


Figure 100. Listing of the JCL to copy source files from tape: 
stored as file 2 of the distribution tape. 


Figure 101 on page 174). 
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77% 

77% FILE 18 -- PASCALZ ASM - RUN TIME ENVIRONMENT SOURCE 
177% 

//STEP6 EXEC PGM=IEBUPDTE, PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALZ.ASM,DISP=(NEW,CATLG), 


4/ UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 

47 VOL=SER=DISKVOL,SPACE=(TRK,(16,1,4)) 

7/7SYSIN DD UNIT=TAPE,VOL=REF=*%.STEP1.SYSIN,LABEL=(18,NL), 

47 DISP=C(OLD,PASS), 

47 DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=* 

77% 

77% FILE 19 -- MACLIBL PASCAL - %INCLUDE LIBRARY FOR COMPILER 
77% 


//STEP7 EXEC PGM=IEBUPDTE,PARM=NEW 
//SYSUT2 DD DSN=SOURCE.MACLIBL.PASCAL,DISP=(NEW,CATLG), 


// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 

47 VOL =SER=DISKVOL, SPACE=(TRK, (21,7,4)) 

//SYSIN DN UNIT=TAPE, VOL=REF=*.STEP1.SYSIN,LABEL=(19,NL), 

47 DISP=C(OLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

//7SYSPRINT DD SYSOUT=* 

77% 

77% FILE 20 -- MACLIBO PASCAL - %INCLUDE LIBRARY FOR OPTIMIZER 
77% 


7/STEP&8 EXEC PGM=IEBUPDTE,PARM=NEW 
//SYSUT2 DD DSN=SOURCE.MACLIBO.PASCAL,DISP=(NEW,CATLG), 


47 UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 

// VOL=SER=DISKVOL, SPACE=(TRK,(5,2,3)) 

//SYSIN DD UNIT=TAPE,VOL=REF=%.STEP1.SYSIN,LABEL=(€20,NL), 

47 DISP=COLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

//SYSPRINT DD SYSOUT=* 

77% 

77% FILE 21 ~~ MACLIBT PASCAL - “INCLUDE LIBRARY FOR TRANSLATOR 
177% 


7/STEP9 EXEC PGM=IEBUPDTE,PARM=NEW 
//SYSUT2 DD DSN=SOURCE.MACLIBT.PASCAL,DISP=(NEW,CATLG), 


V1 UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
a1 VOL =SER=DISKVOL, SPACE=(TRK,(19,7,4)) 

//SYSIN DD UNIT=TAPE, VOL=REF=*%.STEP1.SYSIN,LABEL=(21,NL), 
11 DISP=(OLD,PASS), 

11 DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN=3) 

77/% 


77% FILE 22 -- MACLIBD PASCAL ~ INCLUDE LIBRARY FOR DEBUG 
77% 

7/STEP10 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.MACLIBD.PASCAL,DISP=(NEW,CATLG), 

47 UNIT =3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
47 VOL=SER=DISKVOL, SPACE=(TRK,(2,1,1)) 

“/SYSIN DD UNIT=TAPE, VOL=REF=*.STEP1.SYSIN,LABEL=(€22,NL), 
47 DISP=(OLD,PASS), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN=3) 

//SYSPRINT DD SYSOUT=* 

77% 

77% FILE 23 -- MACLIBX PASCAL - %INCLUDE/MACRO LIBRARY FOR RUN TIME 
17% ENVIRONMENT 

17% 


//STEP11 EXEC PGM=IEBUPDTE,PARM=NEW 
//SYSUT2 DD DSN=SOURCE.MACLIBX.PASCAL,DISP=(NEW,CATLG), 


47 UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
4/ VOL=SER=DISKVOL,SPACE=(TRK,(9,1,2)) 

7/7SYSIN DD UNIT=TAPE,VOL=REF=%.STEP1.SYSIN,LABEL=(23,NL), 
47 DISP=OLD, 

47 DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 


//SYSPRINT DD SYSOUT=* 


Figure 101. Listing of the JCL to copy source files from tape: Ccontinued 
from Figure 100) 
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APPENDIX C. ADDITIONAL LIBRARY PROCEDURES AND FUNCTIONS 


In addition to the routines described 
in Pascal/VS Reference Manual, order 
number S$H20-6168-1, there are several 
other routines which are not predefined 
but are provided in the Pascal/VS exe- 
cution library. These routines are : 


° ITOHS Procedure 


CMS Procedure 
LPAD Procedure 
RPAD Procedure 
PICTURE Function 
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C.1 CNS PROCEDURE 


Invoke a CMS Command 


Definition: 


procedure CMS¢ 


const S$ STRING; 
var RC INTEGER); 
EXTERNAL; 

Where: 


S is a STRING that is to be 
executed. 
RC is the return code. 


The STRING specified by S$ will be 
passed to CMS (via SVC 202) to be exe- 
cuted; the command must be executable 
in the transient area or in a shared 
segment. You must code the declaration 
as shown above, or use the INCLUDE mem- 
ber named "CMS" which is provided in 
the Pascal/VS library. This procedure 
is applicable under CMS only. 


%INCLUDE CMS 
CMSC'Q T', RET); 
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C.2 ITOWNS FUNCTION 


Convert an INTEGER to a hex string 


Definition: 


function ITOHS( 
I 


INTEGER) 

STRING(8); 
EXTERNAL; 

Where: 


I is the value to be converted. 


This function converts the parameter I 
into a STRING that contains the hexade- 
cimal representation of the integer. 
You must code the declaration as shown 
above, or use the INCLUDE member named 
"CONVERT” which is provided in the Pas- 
cal/VS library. 


%INCLUDE CONVERT 
WRITELN('The value ',1:0, 


"is ', ITOHS(I), 
' in hexadecimal.'); 


c 


C.3  LPAD PROCEDURE 


Pads or truncates a string on the left 


Definition: 


procedure LPAD( 
var S$ : STRING; 
L > INTEGER; 
c : CHAR); 
EXTERNAL; 


Where: 
S is the STRING to be padded; 


L is the final length of S; 
C is the pad character. 


The procedure LPAD pads or truncates 
string variable S on the left. If 
LENGTH(S) is greater than L, then the 
effect is to truncate characters on the 
left. If LENGTH(S) jis less than L, 
then the effect is to extend S with the 
character C on the left. You must code 
the declaration as shown above, or use 
the INCLUDE member named "STRING" which 
is provided in the Pascal/VS library. 


%INCLUDE STRING; 


S == "ABCDEF"; 
LPADCS, 10, "$"); 
produces 'SSSSABCDEF’ in S$ 


S§ == "ABCDEF'; 
LPAD(S, 5, '$*)3 
produces 'BCDEF’ in S$ 
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C.4 RPAD PROCEDURE 


Pads or truncates a string on the 
right 


Definition: 


procedure RPAD( 
var $s > STRING; 
L : INTEGER; 
Cc > CHAR); 
EXTERNAL; 


Where: 


S is the STRING to be padded; 
L is the final length of S; 
C is the pad character. 


Tha procedure RPAD pads or truncates 
string variable S on the right. If 
LENGTH(S) is greater than L, then the 
effect is to truncate characters on the 
right. If LENGTH(S) is less than L, 
then the effect is to extend S with the 
character C on the right. You must 
code the declaration as shown above, or 
use the INCLUDE member named "STRING" 
which is provided in the Pascal/VS 
library. 


%ZINCLUDE STRING 


S == "ABCDEF'; 
RPADC(S, 10, "$"); 
produces 'ABCDEFSS$$$!' in S$ 


S == "ABCDEF*; 
RPADC(S, 5, '"$"); 
produces "ABCDE' in S$ 
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Cc.5 PICTURE FUNCTION 


Formats a floating point value 
according to a "picture”™ format 


Definition: 
function PICTUREC 
const P =: STRING; 
R : REAL): STRINGC100); 
EXTERNAL; 


Where: 


P is a picture specification; 
R is the number to be formatted. 


The function PICTURE returns the string 
representation of a real number format- 
ted according to a “picture” speci fica- 
tion. The characters that make up the 
picture specification are similar to 
those found in PL/I and COBOL. 


A declaration for PICTURE may be 
obtained by including the member CON- 
VERT from the Pascal/VS library. 


A picture specification may consist of 
two fields: a decimal field and an 
exponent field. The latter is optional; 
the first one is always required. 


The decimal field may consist of two 
subfields: the integer part and the 
fractional part. The latter is 
optional. 


Example of picture specifications: 


$9999.V99 
9V.999ES99 
$Z2Z,2Z2Z2,ZZ29V.99 


A picture character may be grouped into 
the following categories. Picture 
characters may be specified in lower 
case. 


° Digit and decimal-point specifier 


9 specifies that the associated 
position in the data item is to 
contain a decimal digit. 


V divides the decimal field into 
two parts: the integer part and 
the fractional part. This char- 
acter specifies that a decimal 
point is assumed at this posi- 
tion in the associated data 
item. However, it dees not spec- 
ify that an actual decimal point 
is to be inserted. The integer 
and fractional parts of the 
assigned value are aligned on 
the V character; therefore, an 
assigned value may be truncated 
or extended with zero digits at 
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either end. (User beware!) If 
no V character appears, a V is 
assumed at the right end of of 
the decimal field. 


Zero suppression characters 


Z specifies a conditional digit 
position in the character 
string value and may cause a 
leading zero to be replaced with 
a blank. 


* specifies a conditional digit 
position in the character 
string value and may cause a 
leading zero to be replaced with 
an asterisk ('X"). 


leading zeros are those that occur 
in the leftmost digit positions of 
the integer part of floating point 
numbers. 


Insertion character 


Insertion characters are inserted 
into corresponding positions in 
the output string provided that 
zero suppression is not taking 
place. If zeros are being sup- 
pressed when an insertion 
character is encountered, a blank 
or an asterisk will be inserted in 
the corresponding place in the out- 
put string, depending on whether 
the zero-suppression character is 
a Zor an asterisk (%). 


» causes a comma to be inserted 
into the associated position of 
the output string. 


e causes a point C2.) to be 
inserted into the associated 
position of the output string. 
The character never causes 
point alignment in the number. 
That function is served soley by 
the character V. 


B causes a blank to be inserted 
into the associated position of 
the output string. 


Signs and currency symbol 


The sign and currency characters 
C'S','+','-',°S') may be used in 
either a static or a drifting man- 
ner. The static use specifies that 
a sign,» a currency symbol, or a 
blank always appears in the associ- 
ated position. The drifting use 
specifies that leading zeros are to 
be suppressed. 


A drifting character is specified 
by multiple use of that character 
in a picture field. 


+ specifies a plus sign character 
(+) if the number is >=0, other- 
wise it specifies a blank. 


- specifies a minus sign charac-— 
ter (-) if the number is <0, 
otherwise it specifies a blank. 


S$ specifies a plus sign character 
(+) if the number is >=0, other- 
wise it specifies a minus sign 
character (-). 


$ specifies a dollar sign charac-— 
ter ($). 


Exponent specifiers 


The characters 'E' and "'K* delimit 
the exponent field of a picture 


*99999' 
"22229" 
THRO? 
*ZZZZ9"* 
*ZZZ222Z' 
"RHR? 
THM MH! . 
"$9999' 123. 
*+9999' 123. 
"+9999" -123. 
"999.99! -123.45 
"999V.99" 123.45 
"222,222,229" 123456. 
VKH, HH, HHO! 123456. 
"-272,222,229' -123456. 
Van-,--~-,--9! -123456. 
"SHH, KKH, KHIV II! 123456 
*S$$,$$$,$S89V.99! 123456. 
"S9V.9999ES99! 1.2345 
"S9V.9999KS99' 1.2345 
"-999.999,V99" 1234.567 
-9.999E9' -1234.567 
*OBSBIBIBIBY! 123456. 
*9.9.9.9.9.9' 12345.0 
"99999S' -12345.0 
"999+" -123.45 
"999+! +123.45 
"Z2Z.V99" 0.12 
"ZZZV.99° 0.12 
*-9V.999ES9' 1.23E4% 
"S9999VESZ9' -123456. 
"-V.999E-99' 123456. 


ee @ ee 
SCOCOCOD000 


6 
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specification. The exponent field 
must always be the last field. 


E 


specifies that the associated 
position contains the letter E, 
which indicates the start of the 
exponent field. 


specifies that the exponent 
field appears to the right of 
the associated position. Tt 
does not specify a character 
data item. 


See Figure 102 for examples. 


"00123! 
"123" 
™*x123" 

' o° 

' J 
"HHO? 
"HMMM! 
"40123" 
"+0123! 

" 9123! 
"001.23! 
"123.46! 

' 123,456! 
"X¥xXX123,456! 
"- 123,456" 
" -123,456" 
"$*x*123,456.78! 
" $123,456.78! 
'41.2346E+00! 
"41.2346+00! 
"-001.234,57' 
"-1.235E3! 
1123456! 
70.1.2.3.4.5" 
"12345-' 
"123° 

"123+! 

' 12° 

' ~12' 

" 1.230E+4! 
"-1235E+ 2! 

" .123E 06° 


Figure 102. Examples of using the PICTURE function 
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Virtual Machine/Personal Computer 
CVM7PC) is an IBM licensed program that 
runs on the IBM XT/370 Personal Comput- 
er. VM/PC gives you an interactive sys- 
tem that has the characteristics of a 
VM/SP Release 2 system. 


This appendix gives only the basic 
information needed to use the Pascal/VS 
programming language under VM/PC. You 
will also need one of the following 
manuals: Pascal/VS Reference Manual 
and the Pascal/VS Programmer's Guide; 
the order numbers are SH20-6168 and 
S$H20-6162 respectively. 


It is assumed that the user has a gen- 
eral knowledge of the VM/PC operating 
environment, and that the VM/PC system 
has been installed and _ configured. 
Refer to the VM/PC User's Guide for 
more information regarding the VM/PC 
system. 


D.1 INTRODUCING VM/PC FOR PASCAL/VS 


This appendix describes how to use the 
IBM Pascal/VS programming language 
under VM/PC. 


VM/7PC is an IBM licensed program that 
runs on the IBM XT/370 Personal Comput- 
er, as an IBM Personal Computer Disk 
Operating System application. VM/PC 
gives you an interactive system that 
has the characteristics of a VM/SP 
Release 2 system: command entry, com- 
mand formats, messages, screen 
formats, file naming conventions, key 
functions and application interfaces. 


To use the Pascal/VS programming lan- 
guage under VM/PC, a host system must 
be available; this is because you must 
copy (download) the Pascal/VS compiler 
and library from the host system into 
your local VM/PC storage. Once you have 
done this, you can use the product 
either independently of the host 
system, or in connection with the host. 


VM/PC lets you set up a local 370 envi- 
ronment in which to do your work, known 
as a local session. Once you have down- 
loaded the Pascal/VS compiler’ and 
library into your local storage, you 
can use that product in local sessions. 


VM7PC also lets you set up a 3277 or 
3101 connection with a host system ona 
remote computer, so that your personal 
computer acts as a terminal on the host 
system; such a connection is known as a 
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remote session. You can use the product 
in remote sessions as well as in local 
sessions. CHowever, see "Licensing 
Considerations.™) 


To develop Pascal/VS programs’ with 
VM7PC, you'll use both types of ses- 
sions. You can use a remote session to 
create and process programs on a host 
system, or to copy (download) the Pas- 
cal/VS compiler and library into your 
local VM/PC storage. Once the Pascal/VS 
compiler is available in local storage, 
you create and compile Pescal/VS pro- 
grams in local sessions. 


You can also mix local and remote ses- 
sions in any combination that you find 
efficient. For example, you could cre- 
ate and edit your programs in local 
sessions, then copy Cupload) them into 
the host system for compilation and 
execution. Or you could create and com- 
pile your programs on the host system 
in remote sessions, and then download 
the object program for execution in 
local sessions. 


The performance of Pascal/VS on VM/PC 
is dependent upon the nature of the 
specific job stream, and you may find 
that the performance of the Pascal/VS 
compiler is affected by the storage and 
paging constraints imposed by the VM/PC 
hardware. Therefore, as compared to a 
typical Pascal/VS compile, you may 
experience extended processing times 
in the VM/PC environment. 


D.2 LICENSING CONSIDERATIONS 


You can execute a host-resident 
Pascal/VS compiler from a local 
session. The following considerations 
apply: 


1. When you execute the Pascal/VS com- 
piler in a local session, the com- 
piler must be licensed for your 
XT7370 machine (whether or not you 
have downloaded the compiler into 
XT/370 disk storage). 


2. A license is not required to exe- 
cute a compiled Pascal/VS object 
program (that was compiled = and 
link-edited on a host system) ina 
local session. 


3. When you use a remote session to 
execute Pascal/VS object programs 
that were compiled on the host sys- 
tem, a license is not required. 
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D.3_ USING VM/PC 


Under VWM/PC, you use ¥M/SP-CMS commands 
to create, modify, compile, link-edit, 
load, execute, debug, and test your 
Pascal/VS programs. 


The commands most useful to you in per- 
forming these tasks are briefly 
described in Figure 103. 


You will also find the following CP 


LINK = which makes a device associ- 
ated with another virtual machine 
available to your virtual machine 
configuration, based upon informa- 
tion in the user's VM/SP directory 
entry. 


SPOOL : which modifies the spooling 
control options in effect for one 
or more virtual spooling devices. 


commands useful: 


Command 


ACCESS 
EXEC 


FILEDEF 


GLOBAL 


INCLUDE 


LISTFILE 
LOAD 


PRINT 
RENAME 


SET 


START 


TYPE 


XEDIT 


Hon Used 


Activates a virtual disk for use 


Executes a file that consists of one or 
more CMS commands 


Defines a file and its input/output 
devices 


Specifies text libraries to be searched 
to resolve external references in a 
program being loaded 


Specifies additional text files for use 
during program execution 


Displays a list of your files 


Places a text file in storage and 
establishes the linkages for execution 


Prints a file on the off-line printer 


Changes the filename, filetype, and/or 
filemode of a file 


Establishes, turns off, or resets a particular 
function of the CMS virtual machine 


Begins execution of a previously loaded 
and link-edited program file 


Displays all or part of a file at the 
terminal 


Puts you in edit mode to create and 
edit source program and data files and 
lets you use the XEDIT subcommands 


Figure 103. CMS Command Summary 
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D.4 METHODS OF USING PASCAL/VS UNDER 
VM7PC 


There are two different ways in which 
you use Pascal/VS under VM/PC: 


1. Copy Cdownload) the Pascal/VS com- 
piler modules into local disk 
files, and then invoke Pascal/VS in 
local sessions. (You need to down- 
load only when you first access 
Pascal/VS, when a new maintenance 
update is applied, or when a new 
release has been installed on the 
host system.) 


2. Link to the host system minidisk 
containing Pascal/VS compiler and 
library, and then access it from 
the local session as a remote mini- 
disk. CYou must do this after every 
Initial Program Load CIPL) of CMS, 
or whenever the link to the host 
system is severed.) 


Depending on your link with the 
system, and on the system load, 
this is often not an efficient way 
to operate. 


Note: As noted under "Licensing Consid- 
erations™ above, your VM/PC must be 
licensed for Pascal/VS if you are to 
execute the compiler in a local 
session. This is true even if you do 
not download the compiler into your 
local VM/PC storage. 


D.5 DOWNLOADING THE PASCAL/VS INTO 
VM/PC 


To use Pascal/VS under VM/PC, you can 
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copy (download) the Pascal/VS modules 
into your local files. The modules you 
must copy are listed in Figure 104 on 
page 178.6. 


Downloading is necessary only when you 
first access Pascal/VS, or after a new 
release or a maintenance update had 
been installed on the host system. 


Both the virtual storage and minidisk 
storage must be allocated with approxi- 
mately 1.0M bytes. These storage 
requirements are for the Pascal/VS com- 
piler and library only; additional sto- 
rage is needed for the source and/or 
object program files. 


Figure 105 on page 178.6 shows you the 
commands you must issue. The procedure 
is as follows: 


1. Link Cif necessary) and access the 
local minidisk that is the target 
minidisk for the copy operation. If 
the target minidisk is your own 
minidisk, the link is not required. 


2. Link and access the host minidisk 
that contains the Pascal/VS mod- 
ules. 


3. Copy the Pascal/VS modules from the 
host minidisk to the local 
minidisk. (This is known as down- 
loading.) 


4. Release the host Pascal/VS mini- 
disk; it is no longer required. 
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PASCALS MODULE 
PASCALL MODULE 
PASCALO MODULE 
PASCALT MODULE 
PASCALVS TXTLIB 
PASDEBUG TXTLIB 
PASCALVS MACLIB 
PASCALVS EXEC 
PASCMOD EXEC 
PASCALVS MESSAGES 
PASCALVS CMSHELP 


Figure 10%. Pascal/VS Modules Needed for Downloading 


OOOO OOOO OOOO OOOO OOOO OBE 
x 

* 1) Link and access the target VM/PC minidisk. 

x 


CP LINK vm/pc~id ttt aaa W write-password 
ACCESS aaa filemodel 
x 


* 2) Link and access the host minidisk that contains the Pascal/VS 
x compiler and library. 


x 

CP LINK host-id hhh bbb RR read-password REMOTE 
ACCESS bbb filemode2 

x 


* 3) Copy the files you need. 


x 
COPYFILE filename filetype filemode2 = = filemodel 


x 

* 4) Release the Pascal/VS host minidisk. 
x 

RELEASE filemode2 (€ DET 

x 


x 
* Where: 

% ttt is the virtual address of the local target minidisk that 
* will store the Pascal/VS modules. 

x aaa 1s an unused virtual address on the local VM/PC machine. 
x hhh ~ is the virtual address of the host minidisk that contains 
¥ the Pascal/VS modules. 

* bbb - is the virtual disk address you use to refer to the host 
x isk. 

¥ filemodel - is the filemode of the target minidisk on the local 
* VM/PC machine. 

x filemode2 - is the filemode of the host minidisk that contains 
* the Pascal/VS modules. 

x 

* 


122.232.222.252. 0.2.2.2.2.2.2,.0.2.2.2.2.2,.0.0.2,.2,.2.2,.2,.5,.0.2.0. 2,.2.2.0.0.0 02.520. 0.0. 023.222.500.002 5 0.0.0 0.2 3. 5.2.5.2, 


Figure 105. CMS Commands to Download Pascal/VS From a Local Session 
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D.6 ACCESSING THE PASCAL/VS COMPILER 
ON _ THE HOST 


The other way to use Pascal/VS under 
VM/7PC is to link to the host system 
minidisk containing the Pascal/VS com- 
piler and library, and then access it 
from the local session as a remote 
minidisk. 


Linking and accessing are necessary 
whenever there is a an Initial Program 
Load CIPL) of CMS, and whenever the 
link to the host system is severed. 
Depending on your link with the host 
system and on the system load, this is 
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often not an efficient way to operate 
compared to downloading. 


The virtual storage requirement is 
approximately 1.0M bytes, but there is 
no additional VM/PC minidisk storage 
requirement for the Pascal/VS compiler 
and library since it resides in the 
host system minidisk storage area. How- 
ever, additional storage is needed for 
the source and/or object program files. 


Figure 106 shows you the commands you 
must issue to link and access the host 
minidisk that contains the Pascal/V5§ 
modules. 


DE HE HE IE HE DE IE DE DE IE IE DE DE DE DE DE DE DE DE DE DE IE DE DE IE DE DE 3G IE DE DE 36 DE DE DE DE JE IE IE 3G DE DE DE DE 3G IE DE DE DE DE DE 3G 3G DE IE DE DE DE IE DE DE DE DE DE DE IEE 3E EE 


* 


* Link and access the host minidisk that contains the Pascal/VS 


* compiler and library. 


x 
CP LINK host-id hhh bbb RR read-password REMOTE 


ACCESS bbb filemodel 
* 


Where: 


hhh - is the virtual address of the host minidisk that contains 


the Pascal/VS modules. 


disk. 
filemodel - is the filemode of the local VM machine 


¥ 
x 
x 
¥ bbb - is the virtual disk address you use to refer to the host 
x 
x 
x 
x 


DE 9 IE HE HE IE IE DE DE IE DE DE IE IE DE DE HE DE DE IE IE DE 3G DE DE DE FE IE DE 3G 3G DE DE IE 3G IE DE IE 3E DE IE IE HE DE IE IE DE DE 9G DE DE DE DE IE DE DE DE IE IE DE DE IE DE DE DE DE 3G EE 


Figure 106. CMS Commands’ to Access 


Remote Minidisk 


D.7 INVOKING PASCAL/VS UNDER VM/PC 


You must first make Pascal/VS available 
on a minidisk you can access. For 
example: 


CP LINK userid aaa aaa RR read-passnord 
ACCESS aaa filemodel 


If Pascal/VS is stored on your A-disk, 
or another disk you can access, you can 
omit the LINK and ACCESS commands. (If 
you must issue these commands each time 
you log on to VM/PC, you can put them 
into your PROFILE EXEC, which issues 
them for you.) 


Next, you can invoke Pascal/VS through 
the following command: 


PASCALVS fn [ft [fm]] [Coptions...[)1] 


where "fn™ is the name of the Pascal/VS 
program, "ft" is PASCAL if omitted,and 


Appendix D. VM/PC Pascal/VS User's Guide 


Pascal/VS From 


a Local Session as a 


"options”™ let you modify the default 
compiler options in force for your 
organization. 


To build a load module, issue the fol- 
lowing command: 


PASCMOD main [fns...] [Coptions...([)1] 


where "main™ is the name of the main 
program module, "fns"™ are the names of 
segment modules and text libraries 
CTXTLIB's) which are to be included, 
and “options” allow you to override 
default options. 


To invoke the load module, issue the 
following command: 


modname [Irtparms.../1] [parms...]] 


where "modname"™ is the name of the load 
module, "rtparms"™ are the run time 
options, and "parms"” are the parameters 
Cif any) being passed to the Pascal 
program. 
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D.8 VM/PC PROCESSING RESTRICTIONS ON 
PASCAL/VS 


The following processing capabilities 
are not available when you are execut- 
ing an object program in a local VM/PC 
session: 


1. <Any Pascal/VS restrictions on CMS 
processing apply for VM/PC as well. 


2. Magnetic tape file processing is 
not available: this means that you 
cannot define CFILEDEF?) a 
Pascal/VS sequential file to a mag- 
netic tape medium. 
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D.9 PASCAL/VS PROGRAMMING TIPS 


You can improve processing time if you 
specify the NOPRINT Pascal/VS compiler 
option that suppresses the generation 
of a program listing Cif a listing is 
not required). NOPRINT automatically 
forces the following three compiler 
options to become active: 


© NOSOURCE 
° NOXREF 
° NOLIST 


Le 


access methods 45 


BDAM 45 
BPAM 45 
QSAM 45 


appending to a file 58.1 
arrays 
storage mapping of 88 
Assembler routines, linking 
to 104-119 
calling Pascal/VS main program 


from 109 
calling Pascal/V¥S routines 
from 107 


general interface 105-106 

minimum interface 104 

receiving parameters 107 
assembly listing 42 
automatic variables 

storage mapping of 87 


batch 
See OS batch 
BDAM 45 


BLKSIZE 45, 57 
block size attribute 
See BLKSIZE 


BPAM 45 
CALL 


command of TSO 20 
cataloged procedures 24 


PASCC 25 
PASCCG 26 
PASCCL 27 


PASCCLG 28 
CHECK compiler option 31 
as it applies to 
CASE statements 31 
function routines 31 
Pointers 31 
string truncation 31 
subranges 31 
subscripts 31 
checking errors at run time 61 
CLOSE procedure 55 
closing a file 55 
CMS 9-13 
building load module 12 
compiling under 9-11 
defining files under 13 
invoking load module 13 
CMS procedure 176 
COBOL 114 
calling from Pascal/VS 114 
calling Pascal/¥S from 115 
code generation 91-102 
See also DSA, 
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INDEX 


linkage conventions 
parameter passing, 
PCB, 
PCWA, 
register usage, 
routine format, 
routine invocation 
command syntax 163 
compilation 
under CMS 9-11 
under OS batch 23-30 
under TSO 15-17 
compiler diagnostics 
under CMS 10 
under TSO 17 
compiler listings 37-43 
assembly 
See assembly listing 
cross-reference 
See cross-reference listing 
ESD 
See ESD table 
source 
See source listing 
compiler messages 
See messages, compiler 
compiler options 31-33 
See also CHECK compiler option, 
DEBUG compiler option, 
GOSTMT compiler option, 
LANGLVL compiler option, 
LINECOUNT compiler option, 
LIST compiler option, 
MARGINS compiler option, 
NOCHECK compiler option, 
NODEBUG compiler option, 
NOGOSTMT compiler option, 
NOLIST compiler option, 
NOOPTIMIZE compiler option, 
NOPXREF compiler option, 
NOSOURCE compiler option, 
NOWARNING compiler option, 
NOXREF compiler option, 
OPTIMIZE compiler option, 
PAGEWIDTH compiler option, 
PXREF compiler option, 
SEQUENCE compiler option, 
SOURCE compiler option, 
WARNING compiler option, 
XREF compiler option 
console input/output 47 
CONSOLE option 
of PASCALVS CLIST 16 
of PASCALVYS EXEC 10 
COUNT run time option 35 
cross-reference listing 40-41 


[> ] 


data set attributes 45 
See also LRECL, RECFM, BLKSIZE 
data set definitions 
See file definitions 
DCB attributes 
See data seat attributes 
DDname 
OPEN specification 57 
DDname association 45 
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DEBUG compiler option 32 
debug facility 65-85 
commands 65-77 
break 66 
clear 66 
CMS 67 
display 67 
display breaks 68 
display equates 68 
end 69 
equate 69 
go 70 
help 71 
listvars 71 
qualify 72 
quit 72 
reset 73 
set attr 73 
set count 74 
set trace 74 
trace 75 
view memory 76 
view variable 75 
walk 77 
input to 65 
output from 65 
qualification 65 
DEBUG option 
of PASCMOD CLIST 19 
of PASCMOD EXEC 12 
of run time 35 
debugging a program 
interactive debugger 
See debug facility 
traceback facility 59 
DEF variables 
storage mapping of 87 


default 
BLKSIZE 45 
LRECL 45 
RECFM 45 


DISK option 

of PASCALVS EXEC 9 
DSA (dynamic storage area) 92 
dump 

symbolic variable 63 
dynamic storage area 

See DSA 
dynamic variables 

storage mapping of 87 


Le] 


end-of-file condition 

for record files 54 

for text file 54 
end-of-line condition 53 
enumerated scalar 

storage mapping of 88% 
EOF function 54 
EOLN function 53 
EPILOG Assembler macro 105 
ERRCOUNT run time option 35 
ERRFILE run time option 35 
errors 

execution time 

intercepting 62 

ESD table 43 
executing a program 

under 0S batch 23-30 
execution error handling 61 
execution errors 
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intercepting 62 
external symbol dictionary 
See ESD table 


LF] 


file control block 
See PCB 
file definitions 
under CMS 13 
under OS batch 29 
under TSO 20 
files 
See also input/output facilities 
See also record files 
See also text files 
storage mapping of 89 
FORTRAN 112 
calling from Pascal/VS 112 
calling Pascal/VS from 113 
function invocation 
See routine invocation 


[s ] 


GET procedure 48 
record files 48 
text files 48 
GOSTMT compiler option 32 
GS compiler option 
See GOSTMT compiler option 


[« ] 


HEAP run time option 35 


[z] 


I/0 facilities 
See input/output facilities 
“INCLUDE facility 
under CMS 10 
under OS batch 29 
under TSO 17 
input/output facilities 45-58.1 
implementation 45 
record files 
See record files 
text files 
See text files 
installation instructions 165-173 
compiler source 
under CMS 170 
under VS2 171 
for CMS 166 
for OS/VS2 167-170 
cataloged procedures 170 
CLIST customizing 170 
loading compiler 167-170 
regenerating compiler under 
CMS 166 
interactive files 66, 51 
INTERACTIVE open option 46, 58 


intercepting execution errors 62 
interlanguage communication 103-119 
Assembler 104 
COBOL 114 
data type equivalencing 118 
FORTRAN 112 
PL/I 116 
ITOHS function 176 


JCL 23 
job control language 23 


LANGLVL compiler option 32 
LC compiler option 
See LINECOUNT compiler option 
LIB option 
of PASCALVS CLIST 16 
of PASCMOD CLIST 19 
LINECOUNT compiler option 32 
linkage conventions 91 
LIST compiler option 32 
listing 
See compiler listings 
load module 
creating under CMS 12 
creating under TSO 18 
invoking under CMS 13 
invoking under TSO 20 
logical record length 
See LRECL 
LPAD procedure 177 
LRECL 45, 57 


Le] 


MACLIB access 
See partitioned data set 
MAIN directive 107, 112, 113, 114, 
115, 116, 118 
MAINT run time option 35 
MARGINS compiler option 32 
MEMBER open option 58 
messages 131-159 
compiler 131-151 
DEBUG 157 
execution time messages 152 
PASCALVS exec 159 
MVS batch 
See 0S batch 


Lv] 


NAME open option 58 
NAME option 

of PASCMOD EXEC 12 
NOCC open option 57 
NOCHECK compiler option 31 
NOCHECK run time option 35 
NODEBUG compiler option 32 
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NOGOSTMT compiler option 32 
NOGS compiler option 

See NOGOSTMT compiler option 
NOLIB option 

of PASCALVS CLIST 16 
NOLIST compiler option 32 
non-text files 

See record files 
NOOBJ option 

of PASCALVS EXEC 10 
NOOBJECT option 

of PASCALVS CLIST 16 
NOOPT compiler option 

See NOOPTIMIZE compiler option 
NOOPTIMIZE compiler option 33 
NOPRINT option 

of PASCALVS CLIST 16 

of PASCALVS EXEC 10 
NOPXREF compiler option 33 
NOS compiler option 

See NOSOURCE compiler option 
NOSEQ compiler option 

See NOSEQUENCE compiler option 
NOSEQUENCE compiler option 33 
NOSOURCE compiler option 33 
NOSPIE run time option 35 
NOWARNING compiler option 33 
NOX compiler option 

See NOXREF compiler option 
NOXREF compiler option 


Le | 


OBJECT option 
of PASCALVS CLIST 15 
of PASCMOD CLIST 19 
open options 56 
INTERACTIVE 46 
opening a file 
for input 46 
for interactive input 46 
for output 
for terminal I/0 47 
for update 47 
OPT compiler option 
See OPTIMIZE compiler option 
OPTIMIZE compiler option 33 
0S batch 23-30 
cataloged procedures 23 
compiling under 
executing under 23 
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Page cross reference 33 

PAGE procedure 

PAGEWIDTH compiler option 33 

parameter passing 95-96 
by value 5 
function results 96 
read-only reference (CONST) 95 
read/write reference (VAR) 95 
routine parameters 

partitioned data set 56, 58 
access under CMS 56 
opening 

Pascal communication work area 
See PCWA 

Pascal, standard 
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extensions 127 
modified features 127 
restrictions over 127 
PASCALVS 
CLIST of TSO 15 
DEBUG messages 
See messages, PASCALVS exec 
exec messages 
See messages, PASCALVS exec 
exec of CMS 9-10 
PASCC cataloged procedure 25, 27 
PASCCG cataloged procedure 26 
PASCCL cataloged procedure 27 
PASCCLG cataloged procedure 28 
PASCMOD 
CLIST of TSO 18 
EXEC of CMS 12 


PCB 101 
PCWA 98 
PDS 


See partitioned data set 
PDSIN procedure 56 
PDSOUT procedure 56 
PICTURE Function 178 
PL/I 116 

calling from Pascal/VS 116 

calling Pascal/VS from 117 
PRINT option 

of PASCALVS CLIST 16 

of PASCALVS EXEC 10 
procedure invocation 

See routine invocation 
PROLOG Assembler macro 105 
PSCLHX directive 118 
PSCLHX procedure 107, 113, 115, 118 
PUT procedure 49 

record files 49 

text files 49 
PW compiler option 

See PAGEWIDTH compiler option 
PXREF compiler option 33 


QSAM 45 


READ procedure 
for record file 54% 
text file 49 
integer data 50 
length qualifier 50 
real data 50 
strings 51 
READLN procedure 51 
RECFM 45, 57 
record fields 
storage mapping of 87 
record files 46 
closing 55 
GET operation 48 
opening for input 46 
opening for output 47 
processing of 54-55 
PUT operation 49 
updating 47 
record format 
See RECFM 
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records 
storage mapping of 88 

REENTRANT directive 107, 116, 

regenerating compiler under CMS 

register usage 91 

RESET procedure 46 

REWRITE procedure 47 

routine format 97 

routine invocation 94 

RPAD procedure 177 

run time errors 
intercepting 62 

run time libraries 
under CMS 12 

run time options 35 

runtime environment 
main program 121 
memory management 125 
program initialization 121 


Ls] 


S compiler option 
See SOURCE compiler option 
SEQ compiler option 
See SEQUENCE compiler option 
SEQUENCE compiler option 33 
SETMEM run time option 36 
sets 
storage mapping of 89 
SOURCE compiler caption 33 
source listing 37-39 
compilation statistics 39 
error summary 38 
nesting information 38 
option list 39 
page cross reference field 
page header 38 
statement numbering 38 
spaces 
storage mapping of 90 
STACK run time option 35 
standard Pascal 
See Pascal 
static variables 
storage mapping of 87 
storage mapping 87-90 
arrays 88 
automatic storage 87 
boundary alignment 87-90 
data size 87-90 
DEF storage 87 
dynamic storage 87 
enumerated scalar 88 
files 89 
predefined types 87 
record fields 87 
records 88 
sets 89 
spaces 90 
static storage 87 
subrange scalar 88 
subrange scalar 
storage mapping of 88% 
symbolic variable dump 63 
syntax notation 163 
SYSLIB 27, 29 
SYSLIN DDname 24 
SYSLMOD 27 
SYSPRINT DDname 24 
SYSPRINT option 
of PASCALVS CLIST 16 


121-125 


118 


38 


[:] 


TERMIN procedure 47 
terminal input/output 47 
TERMOUT procedure 47 
text files 6 
closing 55 
GET operation 48 
interactive input 46 
opening for input 46 
opening for output 47 
processing of 49-54 
PUT operation 49 
traceback facility 59-61 
TSO 15-21 
building load module 18 
compiling under 15-17 
defining files under 20 
invoking load module 20 


UCASE open option 58 
UPDATE procedure 47 


variable dump 63 

VM/PC User's Guide 178.3 
Accessing Pascal/VS on the 
Host 178.7 
Downloading Pascal/VS 178.5 
Introducing VM/PC 178.3 
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Invoking Pascal/VS 178.7 


Licensing Considerations 178.3 


Methods of Using Pascal/VS 
Pascal/VS Programming Tips 
Using VM/PC 178.4 
VM/PC Processing 
Restrictions 178.8 
VS2 batch 
See 0S batch 
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W compiler option 

See WARNING compiler option 
WARNING compiler option 33 
WRITE procedure 

for record file 54 
WRITELN procedure 53 


Ea 


X compiler option 
See XREF compiler option 
XREF compiler option 33 
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